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Lance Mickius' 
ST80-the Smart 
Terminal Program- 
just got SMARTER!! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-80 can do alt this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-60, 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request, 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 

ST80D is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harris/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 

If you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For 32 K 
disk systems - 
$79.95 
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STARDATE: 22O0 

From Admiral Fitzpatrick — 
You are to enter and explore ttie Omega VI 
region of the galaxy, gather information on ottier 
intiabitable planetary systems you may encounter 
and defend yourself against hostiles in case of attack. 
Youare In command of the Starsfiip ENTERPRISE and her ship's 
complement of 371 officers and crew. Omega VI is composed of 192 
quadrants containing star systems and planets (a few tiabitable). 
Information on Omega VI is sketchy, but astronomical fiazards such 
as pulsars, Class stars and black holes are known to be present in 
the region. It Is also patrolled by Klingon battle cruisers, 
so look before you leap. 



Specs: Star Trek III 

by Lance Micklus 

Play Board: 8 by 8 by 3 quadrants 

Weapon Systems: Phaser and Photon Torpedoes 

Power Systems: Warp and Impulse 

Computer Systems: Science and Ship's computer 

Sensors: Long and Short Range 

Reports: Damage Control and Status 

Piay Elements: 20 Klingon battle cruisers. 

100+ stars and planets, black holes, pulsars 




^. ■ Aviiilc'biec-; D qital Cas&QllP 

WTS* c' ' {'"ipv-' ll,16K — 514 93 

TenGRfrP*^ - ' PRE.VPOUS PURCHASERS' 
•f'^ .^PROV^^ ' ' Tiadelnyour3.2cas8«ttttor 
^ins""*^* --"" revised 3.3 tape. Send 3 2 tuof 
.j:^ pe"^**" ^V^phnMi.«5ifirfreMJvaStar7-i4 ■ i 





by James Garon 



While "messing around" one day, I stumbled upon a short but versatile 
machine-language subroutine. It allows you to add an impressive array of 
sound effects to any BASIC program. To hear the sounds, just plug the 
"AUX" wire - which normally goes to the cassette - into any amplifier. 

To create the USR routine, follow these steps carefully: 

STEP 1: Type in the following lines: 

ie iU^'HERES NHEftE Ti€ ffiUND GOES" 
20 I=VHRPTR'.fl3-' 

26 FOR K=J TO J+2e 

27 REl^D >: : POKE K.. X NEKT 

28 DflTR 2fi5, 127. iO, 77, m, 62, i, im, 

211, 255, 45, 32, 253, 60, 185, 
211, 255, 4-5. ::2. 253.13.. 16, 
238, 175, 211, 255, 201 

STEP 2: If you do not have a Disk, add this line: 
30 POKE 16526, PEEK(I+1^: 
POKE 1652F,PE£KcI+2:- 
If you do have a Disk, use this line instead: 

iS DEFLiSRe = f^£Ka+i?+256*PEEK(I+2): 
F'OKE 14388, e 



6 
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STEP 3: Run the program. Be sure the amplifier is on. 

STEP 4: Type in the following Test line (without a line number) 

For I ^ OTO 1 STEPO: L = USR(0):NEXT 
If you hear a repeated "whoop", proceed to step 5. If not, press BREAK 
and begin again at step 1. 

STEP 5: Press BREAK and then DELETE lines 35 thru 28. 

STEP 6: SAVE OR CSAVE the program for future use. The following loops 

may be used in a program wherever appropriate, (For now, just type them 
without a line number to hear how they sound). 

FOR 1=1 TO 50: L=USR<illl): NEXT 

FOR 1=1 TO 50: L=tiSR(lllil-I): NEXT 

FOR 1=2960 TO 4^6: L=USR(1). fJEXT 

FOR i=l TO im. L=USR(3Ei+RrD(£ffl»: I4XT 

FOR 1=1 TO iOO STEP i/A' L=USRC<ES-fiB5(150-3*I)): fEXT 

Experiment with your own loops. The only restriction (other than good 
taste) is that the X in USR {X) must be between -32768 and +32767. 

You may be wondering why the USR routine is stored in M$ instead of 
high memory. There are several reasons: 

1) You do not need to set memory size, since the routine is 
embedded in line 10. 

2) You do not need to calculate the "entry point" of the USR 
routine, since the information is available in VARPTR(M$) (see 
lines 20 and 30) 

3) The time needed for BASIC to "learn" the routine is greatly 
reduced. As soon as line 10 is executed, the computer knows the 
entire routine. 

4| Finally, this method saves program memory; each byte of the 
subroutine wastes up to 4 bytes (3 digits and a comma) and if it is 
stored in a DATA statement. On the other hand, each byte of M$ is 
one byte of the USR routine. 

For those who are into machine language, here is the subroutine: 

DEC HEX MNEMONIC COMMENTS 

2m CD CALL 6ft7F i FflSS mmm TO SUBKUTINE 

127 7F 



le 



4[» LD CL .^91VE FREQUENCV 

44 LC' B,H .SR\€ DURfiTlOK 
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62 


3E 


L[i fl, ej 


i 


ei 




i05 


^ 


LtLC 


211 


&3 


OUT FF 


:255 


FF- 




45 


ax 


DEC L 


1^ 


26 


JR HZ 


255 


R) 




b8 


3C 


ifC: fl 


135 


m 


Lf! L..C 


m 


&3 


OUT FF 


f^ 


FF 




m 


20 


DEC L 


^ 


^■' 


JRPG 


'm 


FD 




■u 


0D 


DEC C 


IS 


ie 


DJHZ 


m 


El^ 




m 


ff 


Xi^: H 


211 


m 


m F 


m 


FF- 





;FOR RISING SQUFRE WRVE 

;(£T FREiJUEKV 
J BEGIM Se. -iWE 



; COUNT TO RIDDLE^ 
■J OF itftVE 



FOR FRLLIHG NHVE 
GET FREffiENCy 
MIDDLE OF SQ. -WfiVt 



iffiUNT TO END*- 
, OF S& 4JfiVE - 



.KT 



.^IHCREfieE F-ilCH 

:. !F DURfiTlON > 6 

; nORE SB. -UflVES 
;FOR EM; OF £6 -iJf?v'ES 



iBftCK TO BRSIC 



NOTE: Whenever we do an OUT to port 255, we 
also affect the size of the characters displayed. If 
the USR routine is to be used when the screen is in 
32-character format, make the following changes in 
line 28 (step 1): 



7th byte: was 1 
14th byte: was 60 

24th byte: was 175 



change to 10 
change to 61 
change to 61 
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$100 iar the dociimenS;itiij5i amd/m an adtSi^eii^S $1M for 
She soHware on diskene. We highly recommend subscribing to the 
implete program - documentation PLUS software. 



CO 



Ip adopting this approach, we re going Straight tor tm 
fso to ^peakj. 

We anticipate a very competitive marl<et for business software 
relating to the TRS-80 within the next year, and wish to establish 
ourselves immediately in a dominant position. In doing so, we are 
presuming over 1,000 participants in the BUS-80 project. Pricing 
accordingly, we truly feel BUS-80 will become such a fantastic 
bargain that few serious businessmen who intend to use a TRS-80 
within their enterprise could' possibly pass up the value offered. 
Really, how could you pass this up? 

We're sor« you itj«st be interested in just whai you'll be geMing . 
Well, just about everything you need! Wifhin the year, (and 
probably within six months you'll receive a disk-based Inventory 
system — Accounts Receivable system — Accounts Payable 
system — General Ledger system — Sales — and Payroll. 

We'rs n©! tajking abeyt sSrippsd-dewn systems 

Elements of BUS-80 are already prepared and have been sold 
individually <o satisfied customers for as much as $150. The 
Name/Address system requires an entire diskette itself (over 
50,000 bytes) with some optional subroutines relegated to another 
supplementary disk. 



BU5-80 is ntit odiy competitive, it wil 
Milue is cot 



set thtr 
mli be hard 



We would like it understood from the outset that while BUS-80 will 
deliver a core system for an extremely reasonable price, we'll also 
be offering other pieces of software for general sale. Usually, 
BUS-80 participants wil I be given a discount - in any event, by 
today's standards, tremendous value will be realized. The first 
element of BUS-80is currently being offered 

THAT'S THE P!f CH - BELjEVE IT -.IT'^ 



BUS-80 

The Business Software People® 

17 Briarcliff Drive Milford, NH 03055 



603-673-5144 
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INTRODUCING 
LEVEL III BASIC 

Now do more than ever before 

With the most powerful Basic you can buy 

For1heTRS-80. 



<^ii ihc manual and load ihc ca^^ciier Then ^cl ready lo weak wiih the mo«l pc^erful Basic Inlerprftei 

ynOuVe ever had your hEmiJ^ on . , . Level Ml Basic foi Radio Shack Compuiers. Ii loads righi on lop otli\e 

Level LI ROM, and In Jusl 5K of space, opcm up your capability to ne'* dimcnsion^r For siaricrs, ihi:^ ne<A 

casselic-based inter preier ^ivcs you ihe whole caialog trfdislt programuiJiig power, Plu^ ^raplilcs comniandSr 

Plus Powerful edhing commands. Plus long error message, hex and octal con^ani^ and conversions, user 

dellned Fiinciian^ and a number of commands never before available on either casseiie or disk inierprciers! 

EASIER LOAPING, FEWER KEYBOAIID ERRORS . G2 Level III Basic chmlnales aggravaiions you've 

had, including keyboard "bounce" and ihose super -sensitive lape deck sellings. Programs will lead easier, 

aud you 11 have far Ic&s EroubLe with inpui errors. 

BASIC ACCESS TO l^-J32 . Until now^ il you wanted lo access ycflir RS-232 inltrface, you had lowort in 

assembly language- 02 Level 1]] Basic doe? ihe work for you, klling you use your mterface wiih Bask 

slalements. 

HAVE YOU WISHED FOR MORE POWER ? This new inierprtier gives you 10 machine lansua^c user calls 

for subr on lines, long errors messages, a new TlMEl call for your reallime accessory, plus measure o: iimil 

inpuE liming ihai Icia you pui a lime limit on responses when y<MiVe playing ^ames oc giving enam^r And the 

lisi does 111 Slop here, 

EASIER AND MORE POWERFUL GRAPHICS , This nei« Basic includes three simple commands ihal can 

eliniinaie dozens oFprogriim sieps- PUT transfers informaiion from a designaicd acray toyoui screen^ 0£T 

reverses ibc process, LINE makes your computer do ibe livock when you input beginning and end p>oinis. 

Giveii iwodiagonaUy opposite corner locations, and il 11 outline L he reel angle you're looking fm, 

ONL\ Ml CRCeOTT COULD DO IT . O? Uvel 111 Basic was created by Microsoft, ihe same company thai 

wrote Level II Basic for Radio Shack. And it actually uses Level II as a foundation for [his enhanced add-on. 

By t>ic lime yoll^'e mastered all it can do, calling up Ihe flcxibiliiy of the graphics commands, and even 

enjoying the convenience offenumberings you II wonder how it nas all pc^sible. Ii^s bke getting a whole new 

compuicr lor your compuTer. 

AVAILABLE NOW FOR ONLY tJ9.9S . Yougct the power thai mighi otherwise cc*l you hundreds of dollars 

in additional equipmeni for only ^9,95, Price iiilucdes the Users Manual, a Quick Reference Card, and a 

preprogrammed ciisseite tape. Load the tape, open the manual, and get re^dy lo work with ihc most 

powerful Basic Inierpieler you've ever had your hands on. Level 111 Basic for the TRS-SO. 



Tj« 



TRf-60 Jofluicire Cxchonge 

17 Briar Cliff Drive Milford, New Hampshire 03055 
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A compretiensive 
software package, 
custom-designed 
for the amafgiir 
radio buff who has 
a TRS-80. Oper- 
ates in a real-time 
mode in conjuction with 



^'A 



version 



on-the-airt^tivites. 
support for line 
printer , reports 
in addition to disk 
data storage 
functions. 
Minimum 32K disk 
system with one drive. 



\^ 



PROGRAM HIGHLIGHTS INCLUDE: 

•Complete amateur radio routine Output/input for callsign, 
time/date contact, frequency, mode, location, name, signal 
report, QSO end time. QSL sent/received confirmation. 
•Comprehensive amateur DX prefix file Information on DX 
prefixes, zone, country, great circle bearing, access anytime 
•Q-signal file All international Q-signah and ARRL net 
•Special net log routine Review and print contact stations, check 
in/out times, net control name and callsign. net start/end, net 
operating frequency 

•Operating frequency schedule Allowable modes and require- 
ments for 80-. 40-, 20, 1,5-, 10-, 6-, 2-meter bands 
•Propagation forecast Based on solar flux and K-index 
•Memo/message pad CW contacts; video and print notation of 
QSO information or copied message 

Available for single disk. 32K TRS-80 system 

"Two drives will greatly increase storage capabilities' 
$24.95 

T^ TRI-60 loftuicitfe EKchongc 



17 BniAH CLIP' DRIVE A'tLFC-nO. NfW HAUP^HIRE «JDU 
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OK 
OK 
OK 

I GROWING WEARY 

II Tracing Unstructured 

OK BASIC Programs 

OK 

I Introducing... 

OK ■* 

I MMSFQRThl 

OK 
OK 
OK 
OK 

OK THE LATEST IN A HIGH-LEVEL LANGUAGE SOFTWARE 
°!J DEVELOPMENT SYSTEM. 

OK 

OK MMSFORTH is a new version of the powerful, fast, and 
OK structured FORTH language, specifically written for tlie 
q[J TRS-80, and offers such features as; 

OK 

OK • Double precision integer math 

OK ■ Reverse polish notation 

°[J • Blinking cursor, auto-repeat keyboard 

o^ • Virtual Memory! 

OK " Editing capabilities similar to Level II 

OK ■ Supports 2-80 assembly blocks within the FORTH 

qIJ structure 

OK 

OK MMSFORTH is available in two versions; a complete version for 

OK disk systems and a close approximation to that version which is 

°'J designed for the Level II, 16K tape system. The disk version 

Q,^ offers "virtual memory", supports one to four disk drives, does 

OK not require any other disk operating system, and also has both 

OK disk and tape input/output capabilities. 



OK 
OK 
OK 



TAKE ADVANTAGE OF A POWERFUL STRUCTURED 
OK LANGUAGE WITH THE EXECUTION SPEED OF A 
OK COMPILER. 
E'^ MMSFORTH is available now Irom TSE. 

OK 
OK 
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The MMSFORTH sy.stem diskette or 

cassette tape provides tor the expansion of 

FORTH commands by the user. There are 

many programs and routines provided as ^ w^*. 

examples of FORTH programming, such as: ^Sv 

Routines For: Programs For: '^^ 

String Handling Game o( Life 

Graptiics Ctieckbook Balancing 

File Sorting String Sort 

Screen Printing Number Guessing Game 

The TRS-80 Software Exctiange Intends to lully support the 
introduction of MMSFORTH with the development of 
supporting application modules. Early MMSFORTH projects 

are: 

floatmg-pomt package • 

assembler /cross compiler to provide " 

standard TRS-80 load modules 

large flexible mailing list system • 

generalized data base management system • 

word-processing package (FORTHWRITE) • 



MMSFORTH, by Miller Microcomputer Services, includes 
introductory documentation with further references to the 
MicroFORTH primer of FORTH, Inc. This manual is an 
invaluable reference for the FORTH programmer, and can be 
purchased separately by anyone desiring more information on 
the FORTH language structure. 

30-DAY INTRODUCTORY PRICE 

MMSFORTH cassette version, Level II, 16K $34.95 

MMSFORTH disk version, Level II, 16K 44.95 

MicroFORTH primer 15,00 



Tj« 



TRS-80 Softuicire CHchcingc 

17 Briar Cliff Drive Milford. New Hampshire 03055 
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LdniGU^GE 

mOEQ OUTPUT 

by Paul Johnson 

One of the first problems a machine language programmer faces is 
how to provide input and output for his program. Usually, input is from the 
keyboard (see "A Piece of the ROM", PROG-80, May 1979). This article 
will discuss output to the CRT (video display). 

First, we'll explain a few basics. The video display is "memory 
mapped"; there are 1024 locations on the screen, corresponding to 1024 
(1 K) bytes of "video RAM" (address 3C00H to 3FFFH, or 15360 to 16383). 
The computer constantly scans video RAM, and displays at each point on 
the screen the alphanumeric or graphic character associated with the 
ASCII code stored in the corresponding byte. When the screen is clear, 
video RAM contains only 20H (32 Decimal}, the ASCII code for "space". 
In order to print an E in the lower right corner of the screen, we must load 
the ASCI I code for e (45H) into address 3FFFH. 

Suppose we want to print the word HELLO on the screen. In BASIC 
we could say 'PRINT"H";;PRINT"E";:PRINT"L";: etc. Our machine 
language equivalent would be: 



5500 


ORG 


55e0H 




5S« 219e2C 


U> 


HL. 3C96H 


. UPPER LEFT KiRNER 


5583 3648 


LD 


i.fly, 4SH 


,ftscn 'H- 


5585 23 


INC 


HL 


;POSITi«J FORfJEKT CH^, 


5506 3645 


LD 


<HL),45H 


iMSCII ■£' 


5598 23 


INC 


HL 




5509 364e 


kP^ 


(HL>, 4CH 


iRSCII 'L' 


5MB 23 


M 


HL 




5MC 364C 


\j> 


<HL),4CH 


..fiSCII -L- 


558E 23 


IHC 


HL 




5S0F X4F 


LD 


(HL).4FH 


iffEin a 


5511 C31155 LPl JP 


LPl 


: mtisi LOOP . 


-ll 
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By changing the address in the first line from 3C00 to some other 
location in video RAM, we can print anywhere on the screen. 

In BASIC, a much more powerful PRINT format than the one shown 
above is the instruction, "PRINT @ X,B$. This allows the printing of 
string Information at a specified location on the screen. The same 
instruction is easily achieved in machine language. In fact, the method we 
will describe is the one used by the BASIC interpreter when it needs to 
PRINT. First, we need to have a string (text and/or graphics) to print. A 
string can be considered as a set of ASCII codes stored in memory. The 
Initial source of the string data could be the keyboard, cassette tape, load 
instructions as above, or even ROM. The important thing is that it is stored 
somewhere in memory as a contiguous group of data bytes. 

To print our string, we first must know three things: 

1 ) Theaddressof the first byte of the string 

2 } The length of the string 

3 ) The address in video RAM where 'printing' is to begin 

This block diagram slwws what we will do: 

H 



L 
L 


TEXT 



48 




1 

48 


45 
4C 




45 
4C 




4C 




4C 


4F 




4F 






STRING 
IN 

RAM 



OPERATION 



STRING 

IN 
VIDEO RAM 



TEXT DISPLAYED 
ON SCREEN 



The operation consists of copying the siring, byte-for-byte, into video 
RAM. To perform this task we will use one of the most powerful Z-80 
instructions: LDIR (load. Increment, Repeat), or '"block move". LDIR is a 
very useful, yet simple, instruction. It uses the HL and DE register pairs as 
16-bit pointers (i.e., HL and DE contain the addresses where transfer will 
take place). The HL registCT' points to the source address; the DE register 
points to the DEstination address. The BC ("Byte Count") register 
contains the number of bytes to be transferred; it serves as a sort of 
FOB-NEXT loop. 

To use LDIR, it is necessary to initialize the above-mentioned 
registers. Then, when LDIR is executed, it automatically performs the 
following steps: 

1) copy a byte of data from the source (HL) address to the destination 
(DE) address 

2) increment both HLand DE to the next higher address 

3) decrement (count down) BC 

4) if BC = Ostop, otherwise start again at 1 
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Here is our "PRINT @ X; B$" implemented In machine language 
(assuming our string is already stored In memory): 

LD HL, X Where; X is starting address of string, 

LD DE, Y ; Y is starting location for print, 

LD BC, Z ; 2 is length of string 
LDIR ;Blocl<Move 

Block move may also be used to white out the screen. Notice how HL 
"chases" OE around the screen! 

LD HL, 3CO0H ; Upper Left Corner 

LD (HL),OBFH ;VVhiteout Upper Left Position 

LD DE, 3C01 H ; Upper Left + 1 

LD BC, 400H ; 1 K Positions on screen 

LDIR 
In yet another use, HL is set to 3C40H, DE is set to 3C00, and BC is 
set to 3G0H. The result? Everything moves up one line, scrolling the 
display. Why? Because each byte is moved "bacltward" in memory 64 
decimal bytes, which corresponds to a shift upward to a position 
directly above the starting point on the screen. 

In closing, if you wish to try any of these programs (which are 
presented here as instructions rather than finished routines), insert an 
ending routine similar to the one found on page 6, lines 170-210 of the 
Radio Shack Editor Assembler manual. This will freeze the display for 5 
seconds, so that you can see the results of your work. Remember, the only 
way to learn a technique is to try iti 



Mem Jo RESCUB Pfopm Urns 



As set up, the RESCUE program will only work if you use the default 
value of 3 files. If you answer files? with or any number except 3 or 
ENTER, BASIC will t>egin at a different location. That would require 
several changes in the program, at the 1st, 9th, 11th, and 14th 
assembly language instructions found in lines 10, 20, and 30. There 
would be different values for each number of files. You could find the 
beginning of BASIC using DEBUG to sulastitute the new addresses. 



■ RESCUfc was publisheo m May PROG-60 
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if you've moved recently, or are planning 
on moving in the near future, please verify 
by filling out the form below. This way, 
you'll be sure not to miss any issues- 
fine I ude your present label] 



Name: 



Address:. 



Cily._ 
State:. 



.Zip Code: 



When Effective:, 




GET RID OF YOUR 
TYPflURITER ! 



.",1 I ' 1. .' I . i- 




Hi ^' 

■ m ^M 17 BHar Cii*f Dnve MiSiord, New Hampshire 03055 " 
PROC/80 JULY 
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A UTILITY PROGRAM 
THAT GREATLY EXTENDS 
THE KEYBOARD, VIDEO, 

AND PRINTER 

SUBROUTINES IN YOUR 

LEVEL II ROM! 



lance Mickius 



KVPrunsundei DOSOf Level It BASIC It is pelocatabte under your 
control, and so may be used simuttancousiy wfth other machine 
language programs. At least 16K of memory is required. 



Here are some of the 
things you It be able to do- 



use AN EXTERNAL KEYBOARD 

Or uSi' dny oilier Sf rial nput o*»wil c 
m plateonhe TR^ b h'-fO^tir] 



X 



SIMULATE A RADIO SHACK 
SCREEN PRINTER iisina ..n oidinai / 

cnr'er 



ELIMINATE A COMMON SOURCE 
OF PROGRAM ERRORS b, iuriiiu.„ 
/our l^evb«iarri in upper case onty ot 
run m upper/ lower case modeji '-' 
lil'e itypeMiilter • 



USE MOST ANY ASCII SERIALl 
PRINTER ,u hasleletyfcja or I 



■iwra«;i"^iWM>-- 



TELLTHE rns BO YOU HAVE NO 
PRINTERATALL 



PRACTICALLY ELIMINATE KEY- 
BOARD BOUNCE The imounl ol 
debouncirjq is user adjustable 



DISPLAY UPPER AND LOWER 
CASE LETTERS on your ideo 
monrloi screen 



EXCHANGE PROGRAMS WRITTEN 
IN BASIC WITH OTHER COM 
PUTERS From the Sorcerer lo ihe 

IPf/ r ' 'ri 'TP~ &fi " t'Mjil 



THELISTGOESONANDONi 



Self-relocating for 18K, 32K or 48K systems 
$24.95 on tape $29.95 on disk 

T|C TRS-80 foftiuQfe SHCiicijic^e 
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ELECTFDNICS 

ASSISTANT 



John Adamson % 



Electronics Assistant is a set of nine circuit 
design programs in one. Written by a 
professional for the serious electronics buff, 
Electronics Assistant will draw schematics and 
help you design active and passive low-, 
band-, and high-pass filters, coils, attenuator 
networks, and three types of impedance- 
matching networks. Features extensive graph- 
ics and a one key selection routine. Circuit 
designers and students will wonder how they 
lived without their Electronics Assistant! 



For 16K Level II 
Price, $9.95 



TcE TRI-60 SofluiQie Exchonoc 

m \! ai\a' CUil D'lvB MlMard, h«w HBmptr>tre DSOSS ^ 
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George Blank 



In programs that use a lot of data, you "lay run out of memory before 
you can effectively store all your information. The solution to this problem 
is a technique called bit packing, in which you use only one bit of memory 
to store each piece of information. 

With bit packing, you can store up to 16 different pieces of information 
in one integer variable, 32 in a single precision variable, and 64 in a double 
precision variable. In order to store the maximum number of information 
sets, you need data with only two conditions. That is, you can store in one 
bit whether- or not a certain condition is met, but need several bits to 
determine one of several conditions. 

In adventure games it is often necessary to store a great deal of 
information including the possible exits from each room, objects and 
characters and special conditions in that room, and references to help 
statements. This article will use the storing of exit information in such a 
game as the example for a demonstration of a general purpose bit packing 
and bit unpacking routine. 

Theory 

An integer variable uses sixteen bits to store data. The leftmost bit tells 
whether the number is positive or negative, and the rest contain the binary 
code for the number, as follows; 



Bit 15 14 13 12 11 10 9 8 7 6 5 4 3 2 10 
Sign 16384 8192 4096 2048 1024 512 256 128 64 32 16 8 4 2 1 
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The bits are numbered as they are because the number represents the 
powerof2 indicated by that bit- For example, 2** =1, 2"' = 2, 2^=512, and 
214-16,384, If any bit is a 1 you add the value of that bit to the others to 
find the number indicated. If any bit is a zero, yo" skip over that bit in 
determining the value. The sign bit, number 15, could represent 32.768, 
but TRS-80 BASIC uses a 1 in that bit to represent a negative number and 
a to represent a positive number and an integer variable. 

Single and Double Precision Variables are more difficult to use for bit 
packing, not only because it takes longer and slower routines to pack and 
unpack the information, but also because they use some of their bits to 
indicate the position of the decimal point in scientific notation. For that 
reason, this article will only consider integer variables. 

The Routines 

General purpose bit packing and unpacking routines are given in the 
sample program for integer variables. The Unpacking routine begins at 
line 1000 and the Packing routine at line 20B^- Lines 30 to 290 contain a 
sample program to illustrate the use of these subrciutines. All values used 
in the subroutines begin with B, making it easy to reserve variables for this 
purpose. In both routines, the packed data is indicated by the variable BX, 
the unpacked data from each bit by the variables B{0) to B(15). and 
working variables used in the subroutines are B, the current bit being 
examined, and BV, the value of that bit. 

Unpacking 

To use the unpacking subroutine, store the variable to be unpacked in 
BX and call the subroutine at 10jSl( as is done by line 130 in the sample 
program. The subroutine first examines bit 15 by checking for a negative 
number, storing a one in B(15) if it is negative, a zero if it is not. Then it 
checks bits 14 down to in turn by testing to see if the number given is less 
than the current power of 2. If the number is less, a zero is stored in the B 
array. If the number is equal or larger, a 1 is stored in the array and that 
power of two is subtracted from the number to prepare it for the next test. 
Then the routine divides BV, the bit value, by 2 and tests the next bit. 

Padting 

The packing routine works in opposite fashion to the unpacking routine. 
The data to be packed is stored in the array B((J) to B(15), as demonstrated 
partially in lines 220 to 27(^of the sample program. Then the subroutine is 
called, as in line 280, and the storage variable is then set equal to BX, The 
packing routine begins with 1 , equal to 2P, and adds the current power of 
two to BX for each number in the B array set to 1. After each number is 
tested, the value BV is multiplied by 2 to give the next power of two. Line 
2020 bypasses this for 214 to avoid an overflow error. Line 2040 sets the 
sign bit to correspond to B(15). 

Going Beyond Single Bit Data 

If we wish to store more information than can fit in a single bit, we can 
use several bits. For example, if we had 10 characters who might be in the 
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rooms, with onlyone in any single room, we could use bits, 6, 7 , 8, and 9 to 
store the character number. This single line could give us a character 
number from to 15: CH = B(6) + 2*B(7)+4*B{8)+8*B(9) 

To store a character in a room, once we determined that no other 
character was present, we could simply multiply the character number by 
the power of two represented by the first bit used for storage and add it to 
the value. Thus, to store character number 8 in bits 6-9 of C(0), which 
might represent a monster in the basement, we just use this line: 

CW = CW + 8'64 

This is because 2 , the power of bit 6, equals 64, 

As an exercise, you might wish to add a list of characters to the sample 
program and store them in the array C{0) to C{12) as well as the room exits. 
If you can do this, you fully understand the method and should be able to 
use it in your own programs. Please note: these subroutines are not 
copyrighted. You may use them exactly as they are in your own programs, 
and you do not have to give credit for them. 



18 REfl * BIT PaCKING C€l10f6TRflT0fi * 
28 fEfl * GEI3RGE %Vm - HfiS^ 5 IS'J * 

a &EFINT ft-C:IJtFSTR D-F Din B<15).Dr[1 Ca2):D]R D(12>,&JI1 £<?) 
46 FOR Fl=e IG 12:RE«> C(fl>.D<fl>:NE?(T 

58 DfiTft 2e,^B€HT,.LPCfiCH,30,[1USIC KiOH-i. LIVING ROOn.?.DININQ 
R&».. 45.. k; T^riEU, 49. LRLBJDRV 

68 Of^Tfl 62,HflLL,2,SUS)V,2..GiJE5T RQOti 8, HURSERV. S, ffiiSTER KDROOH. 
l,eHTHRO0fl 

?eFOR fl=e TO 5:REfiD E^R),N£XT 
30 OBTfl f«STH,EFlST.SLiU7k.KEST,UP,MMi 
90 as PRINT"R0Oh% " ",. 'EXIT5" 
95 REM 

* oisaHv 9sms m> ej^its * 

im FOR fi=6 TO 12 

ai@ PRINT fii TflB(i2,)D(fi), 

128 IF C<fl)=0 PRINT"N0HE":GOTO 1% 

138 eX=C<P>-.GOSUB 1860 

140 FOR B=0 ;0 5 

150 IF B<B,J=i PRmT E(S>i " % 

160 NEXT B 

17@ PRIfJT 

150 NE^T fi 

199 REM 



22 PROC/80 lULY 



i-m \w\irm tWHT isai (kltoer) will viju ^MmL the exits"; r 

210 PRINTS E.%,LHF:Jai> PFINT? SW,&<fi), 

228 FOR B=6Tu5 

'm PRINT:a 516, 'x^flFi VOL! E;:!T ",Et(B^." (WH,' ■?M;hR$(95>/' 

Se IJ=ItJKEVI:!F !J=""THEN c'SS 

m IF I*="V'TriEr.' e^E!:-3 

270 fCftT S 

2S8 E6U6 2e00.C<FtJ=e;< 

238 a^TO 90 

m 30 rO 855 

935 REM 

* 8IT UffHi^iNG ROUTINE * 

tK=I(ff'Ur B-CuRR£fiT BIT BV=BIT VftLUE e^B)=aiTPUTS 
1880 IF BX>=0 THEM B(15)=e ELSE BS<=SK*-1B(15>=1 
18ie ev=16284:F(S B=i4 TO STEP -1 
102ij IF B&"6V THEN e(B}=6 ELSE E(B>=l.e;^;=B;^-BV _ 
1030 BV=ev/2: NEXT B 
1090 RETUKfi 
1555 REfl 

* BIT PfiCKIfiG ROUTINE * 

ef:e>=ifaiTS b=clirr£nt en bv=bit valije 8K=iijTFLiT 

2eg0 BX=LVE-v'=i FfK E^e TG 14 
2618 IF B<e>=l Th€N B^^^BX+BV 
2020 IF 8(14 ThEi* Bv'=EV*2 
^28 NEXT e 
2846 IF B(i5)=l TffiN B>-:=e-EK 



PROGR^MMIMG mUT 



One way to add interest to a game is with real time action. This 
routine will pause a few seconds for an input, then continue If none 
is given, setting an input flag (1$= "F") to indicate that no input 
was provided. Then you can test for IS equal to F to assess a penalty 
if you wish. The timing can be adjusted with the FOR loop. 

10 FOR A = 1TO500:l$ = INKEY$:IF l$" ■' THEN NEXT;I$ = "F" 
20 IF l$="F" PRINT"YOUWERE NOT FAST ENOUGH!" 
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©1979 by Gary S. BrescliinI 



General: This program is written In Level M basic for the TRS-80, and can 
be run in less than 4K of memory. It provides a histogram (bar graph) with 
as many as 14 bars. In addition, it calculates and displays with each entry 
error of the mean, and the coefficient of variation. The upper and lower 
values for the bar graph can be specified, as well as the number of 
characters to be included in the data string. This program is particularly 
useful as it allows both a visual and mathematical look at the data as it is 
entered. 

Statistical Background: The histogram is a method for displaying 
univariate data, that is, a series of numbers representing a single variable. 
For example, such variables as test scores for a class, golf or bowling 
scores, can be entered into the program and displayed visually. The basic 
statistics will be calculated, providing additional intormation. 

One of the most important items of data that can be obtained visually 
from a histogram is an estimate of the frequency distribution of the data 
that has been entered. Figure 1 provides several examples of possible 
frequency distributions. These are normally displayed with the primary 
axis along the bottom, but for this program the primary axis has been 
shifted to the vertical to allow longer bars to be presented. 

The formulas which have been utilized for each of the statistical 
procedures are listed below; 

Number." n Determined without calculations; the number of items of 

data which have been entered. 

Number.— n Determined without calculations; the number of items of 

data which have been entered. 
yV 
Mean." "" This represents the sum of the items of data (X) divided 

'^ the number In). 

Variance." s^= EX-^|-(ex.)^/n This formula represents the sum of 

squares minus the square of the sums 

'^"1 divided by n, all of which is divided 

by n-1. 

Standard deviation." s=Vs' The standard deviation is the positive 

square root of the variance. 

Standard error of the mean.-- s— = s/,^7i The standard error of the 

■^ mean is the sample stan- 

dard deviation of the mean. 

Coefficient of variation.— CV=-' ■ - - The ratio of the sample standard 

mean deviation to the sample mean 
expressed as a percentage. 



The n-1 method has been used for calculating the variance and standard 
deviation so that the formulas are suitable for use with small sample sizes, 
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FtCURE 1: SAMPLE HISTOGRAM DISTRIBUTIONS 

Figures are normally oriented along the main axis, i.e. so that the bars 
are oriented up and down. The terms left and right skewed are meant 
to apply to figures with the normal orientation. 



2§ 
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Brief definitions of these distributions [from Johnson 1976] are as follows; 

—Symmetrical; This shape is a mirror image on the opposite sides 

of a line dividing distribution in the middle. 
—Rectangular; Every value appears with equal frequency 

"Skewed; One tail is stretched out longer than the other. 

The direction of skewness is on the side of the 

longer tall. 
--J-shaped; There is no tail at all on one side of the most 

populous class. 
—Bimodal; The two "most" populous classes are separated 

by one or more classes. This situation often 

implies that two populations are being sampled. 

(Johnson 1976:61). 

The six statistics that are provided are described beiow; 



Number.--The number of items of data that have been entered, 

Mean.-The average of all of the items of data that have been entered. This 
and the other statistics described below are only displayed after the fith 

item of data is entered. 

Variance. "The variance of a sample is a measure of the distribution or 
spread of data around the mean. For example, if the numbers 66, 68, 70, 
72 & 74 or the numbers 64, 67, 70, 73 & 76 are entered, the mean is still 
70, but the variance (spread of the numbers) is greater, at 22.5, The 
variance, then, is large when numbers are far from the mean. 

Standard deviation.—The standard deviation is the positive square root of 
the variance. It is often easier to conceptualize the standard deviation of a 
set of data than it is the variance because the standard deviation is 
expressed in the same units as the data, !f the variable (x) is measured in 
inches, the variance 2^ is measured in square inches, while s is measured 
in inches. Like the variance, the standard deviation is a measure of the 
spread of a set of data. In the example given above, the standard deviation 
for the first data set (66, 68, 70, 72, & 74) is 3.16, while for the second data 
set (64, 67, 70. 73 & 76) it is 4.74. indicating a greater relative spread from 
the mean. 

Standard error of the mean. —This statistic represents the sample standard 
deviation of the mean. Basically this is the standard deviation of a series of 
means drawn from the population being sampled. Those unsure of the 
meaning of this statistic should consult several elementary statistic books 
for the background data required for its proper use, 

PROG/80 JULY 27 



CoeKicient of varialion.— This is a very simple but useful statistic. It is 
calculated by dividing the standard deviation by the mean and multiplying 
by 100 {making it a percent). This statistic is also a measure of the spread 
of the data set. TheCV should be relatively small when experimental data 
are being used. The following table gives some ballpark figures against 
which to compare sample data: 



CV TYPE OF DATA/EXPERIMENT 

< 10% a planned experiment should be 

< 5% a good experiment is 

■\. 20% typical for biological data 

> 30% typically is not a normal distribution 



The Program 

The program is initiated by a RUN statement. It then asks "DO YOU 
DIRECTIONS (YES-1)?" Enter a 1 to view the instructions, or just press 
ENTER to proceed directly to the program. 

The first point that muft be decided is the number of bars desired in the 
histogram. The program will ask "HOW MANY BARS?" Any number upt 
to a maximum of 14 bars can be displayed. The program will then ask 

"UPPER LIMIT?" and "LOWER LIMIT?" Enter numbers which will 
allow the entire data set to be displayed but which will not compact all of 
the data into only 1 or 2 bars. The maximum number that can be entered as 
the upper limit is 9999, and the lower limit must be between and the 
upper limit. The program will reject numbers that do not meet these 
criteria, and restate the question. Additionally, when the data is being 
entered, numbers greather than the upper limit and less than the lower 
limit will not be entered into the histogram or into the statistical calcula- 
tions. The final question the program will ask is "HOW MANY CHARAC- 
TERS (INCLUDING DECIMAL POINT) IN THE LONGEST DATA 
STRING?" Some examples of possible data strings and the number of 
characters are presented below: 



12 


2 characters 


1.1 3 characters 


■234,340 


6 characters 


102 


3 characters 


1,05 4 characters 


1212.321 


8 characters 


1239 


4 characters 


12.0 4 characters 


43212.2323 


10 characters 



The maximum number of characters that can be entered is 10. The 
program will reject any larger response. 
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SAMPLE RUN: The following is an example of a run made 
wifli this program 

DO YOU WANT DIRECTIONS (YES = 1)? enterl toseedirecllons, pressemer to continue 

HOW MANY SARS-? 14 

UPPEH LIMIT? 100 

LOWER LIMIT? 

HOW MANY CHARACTERS (INCLUDING DECIMAL POINT) IN THE LONGEST DATA 
STRING? 5 




This is the screen display before the entry of any data. The five 
symbols at the bottom left of the screen wiij accept the five (or 
fewer) data characters that are entered, and will display the 
character entered. If a mistake is made, the backspace key will 
remove it. When the data has been entered into the grid, press 
ENTER. The data will be input, and the grid cleared for the next 
data entry. After five items have been entered, the screen will 
begin to display the statistics. After entering the following 
numbers (44, 55, 23, 40 & 35) the display will appear as shown 
on the next page. 
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100 






\ 


92 








85 








78 








71 








64 








57 








50 








42 








35 








28 








21 








14 








7 








7 mum 


NO. 5 CV% 29.848 


MEAN 39.4 


VARIANCE 138.3 


STD DEV 1 1 ,7601 


STD ERR 5.2592B 



HINTS 
•The maximum number of entries that can be handled by each 
bar Is about 53, after which that appears to the right of each 
begins to run off the screen. 

•Don't forget that the histogram is meant to be right side up, i.e., 
the bars should be vertical. 



REFERENCE 

Johnson, R. 

ElMnanUrvSlatldiG*. 2ik] Edilion. 1976 DuKbury Press, North Sciluate, Mass. 
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10 CLS:PRINT:PRINT CHRIC22>" HISTOGRIW 

2e PRINT " SCflHEiaaWI" 

38 PRINT:PRItfr:PRIMT:PR!KT" l«T IS V OUR QBICE"i 

40 !»=IWCEY$;IF )»='" MM 48 

^ IF XJ="H"0RX$="1" TttN 8e 

60 IF 5»="S"ORX$='2° TfCN 688 

70 GOTO 48 



NOTE: Lines COO on are an updated version ot 
"ECATTEBGRAM" (See May PFTOG/60.) 



88 EH HISTOGRflK/BftSIC STHT CE»>VR1&HT 1979 BY GFRV S, BRESCHINI 

- FOR LESS THAN 48 VfLUES/Wfi 

90 aS:aEFlRie8:PR!NT0144."HlSTOGRflH S 8fiSIC STftTlSTlCS' 

180 PRINT: INPUT"W YOU ttfWT DIRECTIONS CYES=l)"iO;IFO=iGOaJ6540 

U0 PRINT; IWWfffiM NfWV BPStS'iO 

120 IF0>i4PRII*T"N0 MORE THflM 14 BflRS-iGOTOlie 
130 irPUT"UPPER LIMIT"; T 

149 1FT>9399PRIKT"URW LIMIT TOO BIG":G0TO138 

150 INPUT"LOl€R LIKIT"iM:IFH<0PRINT''LO(£R LIMIT CflNNOT BE NEGflTI 
VE":GOTO150 

160 0=(T-U)/0:IFU=>TPR1HT"L0!€R LIMIT LflRGER THfW IPPER LimT";G 

OTO150 

170 IfPUT'HOM HflNV CHfiRflCTERS (INCLUDING DECIMflL POM) IN THE L 

GNBE5T DfiTfl STRING"iQQ:IFQ0>18PRlWT°T00 MHHY CHFIRftCTERS. VGOT 

0178 

180 aS;F0RY=8T0C0*3)-l:SET(13,V):NEXT 

190 FORU=0TOO:PRINT0&tINT<64*U),lNT(T-(U*e)+.l>i :[CXT 

200 X$=''":F»="":PRINTe9e2.""i :PRINT"? ";STRIN6JCQQ,CHR$(;35))i :F0 
RU=lT0QQ:PRINTCHR$<24)i :r€XT 

218 ft$=INKEV$:IFLEN(ftt)=0THEN210 

220 lFfl$=CHR«13)G0T0^ 

228 IFR$=OR«':8)fM)»=°"PRIHTCHRJC24)iCHR*(24>i ;GOTO^ 

240 IFfi$=CH»(8)FiHDX$0""PRlKTCHR*(8>iC«$(35)iaRJC24)i :X$=LEFT 

$(X$,LENO»>-i):GOTO210 

250 IFfl$=<CHI»(45>0Rftt=XHW(58nHEH218 

268 IfL£N<XS}=0QTHEN2ie 
278 PRIHTMi :X$=X»ftt:G0T02ie 
208 X»Vfl(X<):IFX<UQCITQ288 
-290 IF}OTGaT0288 

380 iRMmcrK=}t+.8ei 

310 IFX<«T flM»0<T-Q)ft=fHl:PRIHTe7-STRlMB»<fl.lSi)i :PRIHT87+aft 
320 IFX<=T-flfM«>T-<2»fi>B=B+l:PRlHTWl,STRINW<B.191>i :PRIHTe71+ 
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338 IFX<=T-(2««)fM)X>T-<3«l)C=Ctl:PRINTei35.STRIHQ*CC.19l)i :PR1N 
TW35+C,Ci 

348 IFX<=T-<;3*Q)fiNDX>T-<4*e)N)+l:PRIKr8199.STRING$(D-191)i iPRIN 

18199+0, Di 

350 IFX<=T-(4*Q>fM)X>T-(5^>E=E+i:PRlKTK6XSTRII«ai;E.191Ji PRIN 

T8263+£.Ei 

36fl IFX<=T-(5*Q)fMBOT-<6*0>F=F+l:PRINT8327,S7RIHG*i:F.191)i :PR1N 

T8327+F,F; 

378 IFX<=T-<6<«)fW}DT-(7*Q)G=G+l:PRINT8391,STRING$cam>i;PRIH 

T§391tG,Gi 

388 IFX<=T-(7*«)fM)X>i-<8*e)H=H+l:PRINTW55,5TRIN(3CH,191>i ;PRm 

TMSj^TM Hi 

398 IFX<=T~(8*Q)flHEi)OT-<9*Q)I=in:PRI[fT9519,5TRIMGta-191>; :PRIN 

T8519+1, li 

408 IFX<=T-C9*e>»»X>T-(ie*e>J=j4l:PRIHTK83,STRlHG$(J,191>; :PR1 

MTe583+J, J, 

418 lFX<=T-(i0^)fM)X>T-<ll«Q)K=K+l;PRlNTe647.STRIHGJ(K,191)i :PR 

INT8647+ICKi 

428 IFX<=T-(il*B)(«>X>T-(12*Q>L=L+l:PRlNT87U,5TCING*a.l9i)i :Pft 

INTmi+L, Li 

438 lFX<=T-<12*a>fB©X>"r-C13*Q>rN1+l:PRIMT8775.STRlNW(n-m)i :PR 

INTSTTS^Il 

448 IFX<=T-C13*G!)flra)X>T-(14*Q>N=IWl:PRINT9833.STRIHG*(N,191)i :PR 

IKTe839+N,rij 

450 lFX=«t. 00nHEtK=X-. 091 

468 Z=Z+i:S=5+X:R=R+(X*X):lFZ<=4G0T028e 

478 V=(R-( (5*S>/Z»/(2-l) : CV=19e*SeRtV)/(S/2> ; SE=SeR(V)/SQRCZ) 

4M PRim9SZi. " •: :PRINT8916, "NO. "2i 

498 PRINT8932. " "; :PRINTe925, "CW "CV; 

588 PRlNTeS78, " "; :PRINTe960. "VffilFIHCE "Vi 

510 PRIMTg997, " "i :PRM8985, "STt> DEV "Se8(V)i 
52B F«iNT8949, " "; :PRINT8943, 'PERN 'S/Zi 

538 PRINTW015. " 'i : PR1I1T?1004. "5TD ERR "SE; :GOTO208 

540 PRINTW6, "HISTOGRfln S BftSIC STfiTJSTICS" 

558 PRlNTtPRIHTno IHlTIflLlZE THE PROGRflH EHTER:-:PRIHT" - NUWE 

R M= BflRS DESIRED" ;PRINT" - UPPER LIHIT OF DflTfi'iPRINT" - LOWER 

LiniT OF DflTfl"iPR!rrr' - nflXIfWI NUWER of digits per ENTRV":PRIN 

T:PRIHT"Vrt-UES OUTSIDE OF LIMITS fiRE IGNORED. "; 

568 PKIKT- the upper LIHIT FOR DATA IS 9999. R NRXIMUII OF 14 B 
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FRS ARE POSSIBLE, INPUT THE IlflXIRUn lEHGTH OF OflTft STRINGS "i 
5?e PRlNTMMaUOING DECItlflL POINT). IF fW ERROR IS flflDL T* 8 
PCKSPflCE Hia ERflSE IT. MHEN THE DRTfl IS CORRECT, PRESS ENTtR. " 

580 PRIMT" fFTER THE FIFTH ENTRV SUHtlflRY STftTlSTICS HILL BE 01 
SPLftVED, (VFRIFWCE fiND STflNWRD DEVIfiTIEW ARE CflLCU-flTED BV TH 
E N-1 HETHOO. )" 

590 IfrUT"PRESS ENTER TO COJTINUE-iUiCLSrRETURN 
608 REM XSTTEROWl/CCRRELflTICW PROGRffll COPVRIGHT 1979 BV (SSW S 
BRESCHINL 3?9 CORIWL DE TIEi«fl H). SflLINflS. 01 929^ 1/79 

610 CLS:PRIKTMi,'SMTTEIffiB»l 4 CORRELflfTI(W":PRINT:PRINT:Itf>UT"[> 

VOU WWT DIRECTIONS (YESO-iflilFfMCOSlfiUfie 

628 aS:imiT"IHSERT HflXIMUrt VflLUE OF X"iXH 

62e ir«JT"lNSERT WNIIMl VflLUE OF X'jXL:XX=XH-XL 

640 IFXL>XHPRINT''LOMER LltllT EXCEEDS UPPER LIMIT. VG0SUB123e:GOT 

0620 

650 IF»09939PftIHT"X UM>ER LIMIT TOO LfiRGE. " .009*1236 iGOTO^B 
660 INPUT'INSERT MRXIMUM VflLUE OF ViVH 

670 IW>UT''1M5ERT MINIMIS VFLl£ tf V"iVL:VV=YH-VL 

680 IFVL>Yrt»RINT "LOWER LIMIT EXCEEDS UPPER LIMIT";GOSUB1230:6OTO 

660 

690 lFVH>9999PRlNT'y UPPER LIMIT TOO LflRGE. ": 605061238 :GOT066S 

700 ZX=XX/U4;ZV=YV/43 

710 as : F0RX=12T0127 : SET(X, 0> : SEKX, 44) :f€XT 

720 FORy=0TO43:SET(12.V):SET(127.V);NEXI 

730 PRINT0965.XL :PRINT0971, 'X(#t»»l) y<#il««>'; ;PRINT0i611- " 

740 flJ="0" :B$=*0'' :Ct="e" :O$=-0" ;Et="0" :F$="0" :H$=-0" ; I$="0" ; J$=" 

00":X$="0"-.V»="0" 

750 PRINT01017,XHi :PRlNTe993,I(iT(XL+<XH-XL)/2)J 

760 PRINTW0e0, "COR"; 

770 1=(VH-VL)/15 

7® FCMW=0TO14STEP2:PRIHTe(0+(64*X)), IllT<VH-(X*I)>i :NEXT 

790 fl$=INKEY$;in.EN(M)=0TI€N790 

808PRINTW73,fl$i 

810 B»=IM<EV$;IFLEN(B$)=0THEN810 

826 PRINTW74,B$i 

830 CJ=IHCEV* : IFLEN<C$>=0THEHe30 

846 PRINTe975.C*i 

850 D»=INI«V*:IFLEN(D*)=0THEH850 
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868 PRINTe976,Mi 

878 E*=INKEV$:IFLEN<E$)=0TI€N870 

M8 PRIKTW?7,E*i 

890 X*=flS+e*+C*+D$tE* 

900 F$=!NKEV$:IFLEN<FJ>=8THEN900 

910PRINTI982-FJi 

320 G*=INKEV$:IFLEN«:(j$)=0THEN92e 

938 PRlNTia983,G«i 

940 H$=II*£V$;IFLEN<H$>=8T>€I©40 

958 PRINTfSe4,H$i 

%0 »=1NKEV$:IFLENCI*)=0THEM960 

970 PRINTI?^. I$i 

980 Jt=IHKEV$:IFLEN(J*)=0THEH98e 

990 PRINTe986,«i 

10M VJ=F$+G*+HJ+I$+JJ 

1010 lFJt=''X"GOTO730 

1020 Q=Qtl:C=VflL(X$);[>=VflL(W> 

1038 K=C:L=D:C=C-(M.):D=[)-VL:C=(C/ZX>n3:D=D/ZV 

1040 IF K<XL THEN PRINT01011. 'X TOO SHfla'i ;GOSlJei238:G0T0738 

1058 IFL<VLTHErR!INT010U,''Y TOO Sflfla"i :G0SUB1238: 8010738 

1060 IFC>12?THEHPRINTeiai3. 'X TOO BIG'; :60SUB123e:G0T0738 

1070 IFD>43THENPR1NTW013. "V TM BIG"; :GOSlfil238:G0T073e 

i0M D=44-C);aTCC,D):PRINTW7i,"X(»#t«) Y(««l)'i 

1090 GOSUB110e:PRlNT9ie05,- "; :PRlNTK804.CCi ;G0T073e 

1100H=N+l;SX=SX+K:SY=SV*L:flFl=HH+i:K*K>:^=BB+(L*L):XY=XY+(K*L) 

1110 1FQ=<4GOTCI730 

1128 XD=a«((flfi-C<SX»«(>/N»/CN-l» 
1130 VD=SQR(CBB-<(SV»SV>/N)>/'CH-1)) 
1148 CV=1/CK-1>*C0«)-(C1/H>*(SX*SV»> 
1150 CC=CV/(XD*VD) :RETURN 

1160 PRINT-THIS reaSfln Wia DISPLRV R SCftTTEROMI USIMG VPLIIS 
OF X AND V. IT HILL fLSO PROVIDE THE CORRELATION COEFFICIENT BETH 
EEN THE VALUES OF X AMD V, SET TtC UPPER ttD LOHER L1HIT5 DE 

SIRED FOR BOTH X AND V A» INSERT VALUES '; 

1170 PRM"OF X AW) V. TIC DISPLAY HILL PLOT THE POINT AND A 

FTER 1\£ FIFTH POIHT UILl BEGIN DISPLAYING TtC COHSUITION COQ^ 

FICIENT. VALUES LARGER THAN 9999 CANNOT BE EMTERED. IF VOU HflV 
E VALUES LflRGER. DELETE THE LAST DIGIT(S), "; 
1180 PRINT" STftCflRD DEVIATICMS <IN TC CORRELATION FORHULAS) A 
fS. CflLCULflTEDUSIHG "WE M-1 METHOD. " 
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IIM PRINT; IW^'Pf^S ENTO? TO CONTIWS'ifiiOS 

1288 PRIHT"THERE IS NO NEED TO PRESS ENTER WHEN INSERTING VftLUES 

OF X « V. HERaV INSERT 2 NUMBERS CTHEV HILL BE DISPLfiVED ftS TH 
EV m. ENTEI^). LEflDllffi COR TRfllLINQ) ZEROS OR HJM(S HOST ffi 
INSERTED. "; 

1216 PRINT'DECIflflL POINTS CRN BE ENTERED IN PLACE Of ONE OF THE 
5 DIGITS. TYPING AH X IN PLflCE OF THE LflST DIGIT HILL CflUSE THE 

ENTRY TO BE IGNORED (IN CfiSE OF ERRORS). " 
1220 INPUT-PRESS ENTER TO CC«TlNU£"ifl:RETURH 
1236 FORX=lTO2e00:NEXT:RETURN 




DISK DRIVES 
Now in Stock 

The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Disk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack's drives. 

Enjoy these advantages: 

• Fast access time 

• 110K/40 tracks vs. Radio 
Shack's 89K/35 tracks 

• Lower cost — save $100 over 
comparable units 

• Available NOW! 

Single Drive $399.00 
Dual Drive $799.00 

Cable (required) ~ $29,95 

NOTE: All disks require TRSDOS sollware, available only from Haaio Shack. 

T|CTR('0O Jofluiore ExchoAoc 

W l7eiluCM'lDilva Mlllerd. rwi* ItBPinhtrt Q»U 
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HEBBLER SOFTWARE SERVICES 

A comprehensive accounts receivable program 
with billing package offering menu oriented 
operation, audit trail with running balance for each 
account, date, description and exact amount for every 
filed transaction, special input procedures, automatic 
error checks — uses random data files. 

The package which allows you to: 

• Maintain receivables fileson 200accounts 

• Add new accounts any time 

• Change information 

• Perform selective information search 

• Assign terms 

• Print listing of overdue accounts 

• Print statements automatically for unpaid accounts 

• Print a custom message on statements 

• Print mailing labels 

• Print an accounts receivable summary for all accounts or unpaid 
accounts only 

• Post charges and credits at the keyboard 

package includes one master diskette, one data diskette, 
and in depth instruction manual. Requires TRS-80 with 
^6K memory, two disk drives, and line printer. $79.95 



Tffi 



TRJ-60 SofluiQfC EKchonge 

17 Biiar Clill Driva MiliOnJ, New Hampshire 0305S 
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MAIL 
LIST II 



by BUS-80 



IDEAL for ali sorts of small 
mailing applications, such as 
small businesses, clubs, ctiurcfi- 
es; for advertising, newsletters, 
announcements, press releases -- 
endless possibilities. We use it 
for a 15,000-rame mailing list, 
yet if is perfect for lists as short 
as 100 names! Vou can store 1000 
records per data disk, use as 
many disks as you like . . . 

Each record includes: 
RECORD NUMBER 
RECORD CODE 
COMPANY NAIijIE 
NAME 
ADDRESS 
CITY/STATE/ZIP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 

Utilities include SORT, MERGE 

MOVE, BREAK, EXAMINE, and 

UPDATE. 

Prints lavels 1, 2, or 3 across. 

Sequential file structure makes the 

most etticieni use o! disk space: all 

alphabetic items can be as long as 

necessary. 

Allows data entry on a 4K, Level II 

cassette system. 

Z Disk Drive, 3ZK minimum S99.95 
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TMKinc 
BANKO 



by Lance Micklus 



The first time you show off your TRS-80 Voice Synthesizer, there are 
two things your friends wili tie sure to say: 

' 'Why does it have a German accent?' ' 

"That's neat, but what are you going to do with it?" 

I haven'tany idea why it sounds like an old German college professor, 
and when I first got mine, I had no idea what I was going to do with It 
either. 

The instruction book provided Is well-written, but I wisti Radio Shack 
had spent more time explaining how to get the thing to say stuff that isn't 
in the book. 

Teaching a computer to speak Is an art. It Isn't hard, but it requires 
practice. I quickly discovered that four-letter words (unprintable here! ) are 
simple to program. Getting the thing to say my name took me about half an 
hour. It turns out that Lance Is L @ l#CNS. And my girlfriend's name 
(DiannewlthtwoN's}lsD2AY @ (N. WOW!!! 

If all this makes no sense to you, maybe I should explain how to 
program a voice synthesizer. The unit is capable of producing sixty-two 
phonemes. Supposedly, using these sixty-two different sounds, you can 
simulate any word in the English language. 

The unit plugs into the expansion card on the rear of the TRS-80, or 
the screen printer connection on the expansion box.. It constantly watclies 
for any letter put on the video screen in the (ast thirty-two positions. (This 
is called the window). A PRINT @ 992, for example, will put a 
character or line of characters in the window. Tiie characters can also be 
POKEd Into the window. This means that the unit will work with either 
Level I or Level II. I feel tfiis is senseless, since not many Level I machines 
aregoing to have a $400 voice box on them. It should have been set up only 
for Level II to read a port like a printer. This window concept has problems, 
as we shall see... 
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The voice synthesizer will ignoreanythingon the screen, so video data 
wili not set it off. Wfien a question marl< character appears in ttie window, 
it is open. The device select light turns on. Now. anything printed inside 
the window goes to the voice tx)x and it pronounces the proper phoneme. 
After you print ali the phonemes into the window, you print another 
question mark character within the window to close it. 

The voice box itseif can store up to thirty-two phonemes on a first in, 
first out basis. If you try to put more phonemes in than there is room for in 

the stack the box gets confused. 

Here's the troubie with (his set-up: if you have the unit on and LIST a 
BASIC program, a question mari< is tiound to run through the window, 
causi ng the voice tH)x to try to pronounce the last half of every Rne it sees. 
It speaks lousy BASIC. 

But the worst part is that there's no way to know when the stack is 
fuil, or how fast to put new phonemes into the stack, so by trial and error 
you set up timing ioops. 

If Radio Shack had gone to the port method, ali these problen^ would 
tie non-existant. You'd l>e able to list to your heart's content. And, as with 
the printer port, you could liave tested the port for a busy condition to 
avoid overloading the stack. No more timing loops. But it's too late to 

change that now, so we'll mate it work as it is. 

APPLICATIONS 

While visiting my computer store several weeks ago, I mentioned I 
had a Voice Synttiesizer. I was told the store had recently sold one for the 
S-fOO bus. (I think it wastheCT-1 model you've no doubt seen advertised 
in magazines.) Being curious, I asked what type of computer It was to tie 
used on. Would you believe it ... an IBM370I Yep, withan S-IOObus. Not 
an IBMS-100bus— IBM hasn't been abletodesign such a thing yet. 

What in RAM's name would you want to do with a voice synthesizer 
on an IBM 370? Among the many jobs 370's have is that of building 
security. They want it to do more than buzz when there's a fire ... they 
want the computer to tetl a security guard that there is afire and where the 

fireis, in English! 

In computer games a voice box can add a whole new dimension. I'm 
now toying with a new Concentration game that speaks. Educational 
programs can be even better with verbal reinforcement, also. But, of all 
theTRS-80 users, it's the business people who need talking computers the 
most- Watch someone entering data through the keyboard. Now think 
what it would be like if the computer could give the typist verbal 
reinforcement ... especially if the eyes must leave the screen momentarily. 

I plan to add the voice feature to my own Deluxe Personal Finance 
program so that when I'm cancelling out checks from the bank 1 can look at 
the checkbook while the computer reads the check out to me. 
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THEGAMEOFBANKO 

BANKO was my lirst computer game. First written on the Casio 
programmable calculator and called LUCKY ELEVEN, it was later 

rewritten for the SIGMA/6 and was played extensively by University of 
Vermont students. From there, it was renamed DOUBLE OR NOTHING, 
then once again rewritten in Level I BASIC (later upgraded to l_evel II 
BASIC) and renamed to BANKO. 

I have now brought it back out again, this time adding voice 
capabilities to it. 

BANKO is similar to Blackjack. In fact, I was originally trying to write 
Blackjack way tiack on the Casio. Briefly, you get a random number which 
is added to the total in your hand. You keep getting numbers until you quit 
orbreak eleven. 

BANKO is an easy game to learn. It's fun to play and can be played by 
a wide range of people, from small children to adults. My son was six when 
he first started playing BANKO. Not only did he enjoy it, it was great 
practice for performing simple arithmetic drills in his head without the 
boring, ''HOW MUCH IS 3 + 2" type of question. So, the game can be 
educational ... if you're six years old or so. 

THE PROGRArui 

Sometimes it can be dangerous lo fool around with other people's 
programs. BANKO is one of them. You'll notice it contains its own random 
number generator. This is more than a leftover from the old Casio 
calculator ... it's an important part of the game. The random number 
generator only needs to tie seeded , which is done at the start. Beyond that, 
Level ll's RND function isn't used because it produces uniformly 
distributed random numt>ers — which means you have just as much of a 
chanceof gettinga9asyoudoa2. BANKO's random number generator is 
biased to the low end. It will produce random fumbers from 1 to 11, but it's 
more likely to give you a small number than a large one. In other words, 
1 1 's occur less often than 2's. 

To make the computer play a good game, you must have good 
strategy, right? WRONG! BANKO does something that is very funny. It 
mimics you — it plays the same strategy you play. In theory, then, it 
should play as well as you, and win half the time, right? WRONG! 
BANKO's dealer always goes last, so if you bust, it can take advantage of 
your mistakes and try to pull ahead. It seems it should play a little twtter 
than you. At least it should win more often then you do. However, in 
practice, it seems to work out the other way. Your odds of winning are 
about sixty percent. 

BANKO simply keeps a sort of average of when you stopped in the 
variable Q. Q is modified so that it won't fall less than 6, or more than 10. 
The computer's logic is also set up so that if drew four times in this hand, 
and the computer's hand is less than seven, it will always draw again, 
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regardless of Q. This is because the cxJds of drawing a high numiser and 
losing are smaller than the odds of drawing a low number and getting 
bonus points. 

The voice routines are at the end of the game. BANKO is set up so 
it can be played either with or without the voice box. The voice routines 
have much more power than is needed to play BANKO, but the game 
makes a good frame with which to demonstrate the routine. 

The idea here is to build a string with the phonemes needed to 
pronounce a number or a phrase containing a number. After V0$ is 
developed, just do a GOSUB 40080. NOTE: You need to set SS = -1 when 
you start up the program. The subroutine at 40080 will POKE the 
phonemes into the video memory, as well as taking care of opening and 
closing the window. The speed at which the phonemes are POKE'd is 
controlled by setting VW. The larger VW is, the slower the phonemes get 
POKE'd. 

The second part of the voice routines creates the phonemes needed to 
pronounce the number. The phonemes are added to V0$. The n\ain line 
must clear V0$ as needed. Just set VO equal to the number whose 
phonemes you wish the computer to pronounce. There are three calls you 
can make depending on how the number is to be pronounced: 

GOSUB 42080 will pronounce the number VO as if it were dollars and 
cents. In other words, if VO = 2.58, the computer will add to V0$ the 
phonemes to say "Two dollars and fifty-eight cents" 

GOSUB 42320 will make the computer pronounce the numbers one digit at 
atime. lfVO = 352, then the computer will add phonemes to V0$ to say, 
"Three five two" 

The third call, which is used by BANKO, pronounces the numtwr simply as 
a number. If VO = 34, it will add to V0$ the phonemes needed to make it 
say "Thirty-lour" 

II should be immediately apparent how powerful these voice routines 
are. They can easily be transplanted Into your own programs to make the 
programs talk. 

In the case of my checking account program, I would want to have 
the computer give me the check number one digit at a time, but I'd like the 
value in dollars and cents. An if it did only that, and said nothing more, it 
would greatly improve the usefulness of the program. 

The Radio Shack Voice Synthesizer retails for about $400, which is no 
small sum. Personally, I think that in time, devices like it will become 
commonplace on computers — nearty as common as printers. After all, 
they are output devices. 

10 SS = -1 : VO$="H;PP.0K;(MP#(TT<S' '+ L(£D l#(NSOMI)KL%S" 
20 VW = 10 : GOSUB 40080 
30 END 
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leeREfl =================== 

126 REK fflWO-T VERSION 2. 

Ue REM 8y liWCE niCXLUS UIN{»SKI, VERHM 05464 

168 RER TRS-88 16K LEVEL 11 BftSIC 

1^ I©! COPVRieiT flRRCH 1979 

2WRD1« ** ***#♦* 

220 REM FCR WTIONPL USE HUH 

246 REM THE RfffilO SHftCK VOICE S-fflMSlZER 

2ffl RBI ======================= 

2% REM 

388 CLEH; 588 : RfWGFI 

320 as : PRIHTK20-"" : lNPUT"f«E VOU USIWJ THE TK-88 VOICE SV - 
HTHESIZER (V OR H>";R* : fl$=LFT»<M,l) 
S-ffl IF flt="V' Tf€N SS=-i ELSE m 

368 INm"IS Ji£ DEVICE SELECT L»P £fF <V CR H)'M : f«=LERt( 
M.1) 

288 IF f»="N" LET VOJ='?' : GOSUB 40888 ; FOR K=0 TO 2880 : NEXT 
K 

488 CLS 
428 E = RH>(1^80) 

4482 = 30 
468T = 
488H = 
S8Q = 7 
528VH=12 

548 PRiKn(e(23)-NacorE TO mm' 

560 PRINT Tffi(23)''BV LfllCE MICKLUS" 

580 PRIWT TfB<16)- " 

606 PRINT 

620 PRIHT'THE GPtt IS SIMILflR TO BUCK JACK. VOU DRW NUWERS ST 

OPPING' 

648 PRINT-BEFORE THE TOTAL POINT VftUE EXCEEDS 11 IF VOU 60 (NE 

R 11. ' 

660 PRINT-THEN VOUR HflND HILL BE ZERO'D. IF VOU DRFW 5 TirCS HIT 

HOUT" 

686 PRINT-GOING OVER 11, TtCN VOOU RECEIVE BONUS POINTS EQUft. 

TO THE" 

700 PRIKT'VRLUE CF VOUR HUM) AT Tl€ TI(€ VOU E«) VOUR TURK ■ 

720 PRINT 

740 HflHT'THE SCORE STfSTS AT 38 POINTS. IF IT KE5 TO 6a YOU H 

m- 
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768 PRINT'BaOH ZEIffl, VOULOSE. ftTTHEEHDOFEflCHTimTHEPOI 

HT" 

780 PRIHT'DIFFERENCE BETHEEN M. THO HfWDS HILL BE flOOED OR SUBT 

RflCTED" 

888 PRINT-FROM THE SCORE. • 

829 PRM 

848 vo(=-'u)Mm8T*(uee3tw« ssfm»iix> l3R pl isii toe^EeiHsr 

RfKS^NS PRIK0=Ee3lfra»IY»IIIKeVOR«ie()WT*<UPL»Y'' 

866 G0SU6 46088 

8^ PRIKT'UISH YOURSELF GOOD LUCX THEN HIT (DJTER) l<IEN REFDV T 

fifm.'i : B*=iM<EW 

see IF iricEV*=" then see 

928 REH 

948 REH THE HUHW TFKES fl TURN 

968 REH 

9881 = T + 1 

iee8D = e 

1828 H<8} = 8 : n<2) = 8 

1948 05 

1868 PRIHTe967> "PRESS Q TO QUIT THE GHC, & TO DRRU RGftlli S TO 

STAY'; 

1888 Vlib^ : V0f=-«TS8yfi%T3RN- : GOSUB 48888 

iee PRI(IT8 25."USK'S TURN" 

120 PRINT? 14e,"DRfiH"i : PRM? 164,''HflW)' 

.148 WBB 3628 

168 D = D t 1 

m fl(8) = fl<9) ♦ N 

288 PlilNT TFe(28> Ni 

228 PRINT TfieC^) fi<e)i : IF HOT SS THEN 1348 

248 V0$=". lWKt(U " : VO=h ; SOSIS 4^88 

.see IF NOfi(8) LET WI=VO*+' ra™M)e,Sfflfi*B" : V0=fl(8) : MS 



12^G05l£488^ 

13^ IF NOflCS) FCR K=e TO i^ : f£)CT K 

1320 IF [>=5 fW a(8)<12 LET VOt="V«(U0G2Te<=€eB$N0SePO*NT5" ; VU 

=18 : imB 4ffi8e 

1340 IF fl<6) < 12 HO 1426 

O60 am = : ft(2) = 

1388 60SUB 4220 : G09ffi 3946 

im GOTO 1648 

1420 PRINT Tf€(M)- "i 
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i-We IF D > 4 THEN fl(2> = fl{9) 

1466 Ot=Il«EV$ : K=0 

1488 0$=irKEVt : IF Qt="- AND IC=20e MN K=8 : QOSIB 4348 ELSE K 

=Ktl 

1586 IF OJO'fi" FM) OtO'b' RND 0$O'S" TIEH 14M ELSE PRINT 

1529 IF OJ='S" VOt='VOR0STft'INt" : MHB 498^ : GOTO 1649 

1548 IF Ot="Q" THEN 3888 

1568 GOTO 1148 

1589 REK 

i&^fm KflBi'STURN 

1629 REM 

1648 as 

1668 flCl) = 8 : AG) = 8 

1688D = 8 

1798 = <Q t fl<9» / 2 

1728 IF Q < 6 THEN Q = 6 

1748 IF > 10 Tte Q = 19 

1768 IF SS LET VH=8 : VO*="*TS8n88V9T3flH' ; GOStB 48880 : FOR K= 

8 TO 388 : NEKT K 

1788 PRIHT8 24, 'DEflLER'S TURN" 

1898 FWNT8 148, "ORFH'i : PRIKTS 164, "HflM>" 

lS2eG05UB 3629 

1848 fl(i) = fl(i> * N 

1869 D = D t 1 

1888 PftlHT TRB(2e) (t 

1388 PRINT Tfle(36) fltl) : IF MOT SS THEN 2828 

1928 VO»='8eVB0RI<Ue' : VO=N : QOSUB 42588 

1948 IF HOflci) LET vo*=vo*+" re»imts»,^m»' : VtHia) : (ffl 

SUB 42588 

1968 GOSUB 46888 

1988 IF NOfl(l) FOR K=8 TO 488 : NEXT K 

2899 IF l>=5 (Ml fl(l)<12 LET V0$='8«V8G2T8C=€8e*NKePO»NTS' : W> 

18 : GOSUB 46^8 

2828 IF Fl(l) < 12 TI€N 2199 

2948 GOSIJB 4248 : QOSUB 3949 

2969 R(l) = 9 

2988 GOTO 2328 

2188 IF D = 5 ^m hQ) = Rd) : GOTO 2288 

a2e IF <D = 4> * (fl<l) < 7> T>« 1828 

2148 IF Q <= n<i) ivBi ^m 

2168 IF A<1> ' R(8) - R(2) > Z THEN 2299 
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21^ l»T0iB2e 

2206 PRINT? 921,'OEFLER STflVS" 

2228 VU=6 ; m='=ifX>. LlResieVS" ; GOSUB 46868 

2246 IF SS THEN FOR K=e TO 586 : NEXT K ELSE FOR K=0 TO 1688 : N 

EXTK 

2^6 REH 

2288 REM END OF TURNS SEQUENCE 

2388 REH 

2320 CLS 

2346 PRMe 345."SIM¥RV t"iT 

2366 F«lNTe 461,'lfiffi'S HfM)"ifl(8)i 

2339 F^INTe 481."[)EflLER'S HWifld) 

2488 PRINT? 524. "BONUS POINTS'; ft(2), 

2428 PRINT? 546. "BONUS POINTS'; fiC3) 

2446 2 = am + fl(2> - fl<l) - fl(3) + 2 

2468 PRIHie 666. "SCORE:-; 2 : IF NOT SS THEN 2648 

2480 VO*='fiFT3R0" ; VO=T : GOSUB 42588 : VOJ=V0$*'' R5[N&- 

2588 IF TOl LET V0J=V0$t'5" 

2526 VO$=VO*f <:=£0SKOOR9.Se" : V0=2 : GOSIB 42588 

2546 VH=18 : GOSUB 468ffl : VOt=" ; F(K K=0 TO 3^ : NEXT K 

2560 IF Z>^ LET V0$=V0t+" ¥*R63H0«)" 

2588 IF Z<30 LET VOt=VO$+' 8evn83He»" 

2m IF 2=3» LH VOt=VO$+' l€fiR8T8«*D" 

26% VH=28 : GOSUB 40688 

2648 IF (2 >= 28) * (Z <= 48) Tt£H H = 8 : GOTO 2368 

2668 IF Z <= THEN 3268 

2688 IF Z >= 60 TJ€N 3348 
27M IF (H = 0) * CZ < 18) MN H = 1 ; GOTO 2766 
2720 IF <H = 8) * (Z > 50) THEN H = 1 : GOTO ^48 
2740 GOTO 2960 

2760 PRINT? 986, "GSEFtl TURKEV. OR VOU^RE KWNfl L(^ ! ! ! " 
2788 V0t='K?RF3L8T3RKEV OR0VtR6GJN26LC'S- : VH=i5 : GOSUB 48688 
2868 IF SS THEN FOR K=e TO 756 : NEXT K ELSE FOR K=6 TO 1258 : N 

EXTK 

2820 GOTO 2966 

2840 V0$="DCHTeS(131LeV3T VKUOSTILWI 158" : VO=68-Z : GOSIB 4258 

8 

2860 IF Z=59 Tt£N VOt=VO*+"PO*NT" : 6$='P01NT" ELSE VOt=V0J+"PO* 

UTS" : Bt="POINTS" 

2888 VO*=VO*+"eTI(U0HIH- 
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29W PRINTWee. "DON'T SNILE VET. VOU STILL HEED"i6fr-ZiB*i" TO Ml 
2920 VK=15 ; QOSUB 40888 

2946 GOTO seee 

2960 IF SS THEN FOR K=e TO 758 : NEXT K ELSE FOR K=9 TO 1588 : H 

EXTK 

2968 aOTO 988 

3888 REH 

3828 REK EH) OF THE G»£. 

3048 REM 

3868 REH 
3888 05 

^88 PRINT8 328, "GflME ENDED (f TK"i T-1; "TURHS BY a«E LOSER ' 
US PeiNT*[)eiER UIH5 BV DEFRllT. ' 

^48 V0*=' VI(UeOU*T =EeDI*L3?8HI»6eB3»a»EFiLT" : W=ie ; GOSU 
8 46888 
3168 GOTO 3389 
3188 RE« • DEfllfR HIHS • 
3288 PRINT 

3228 PRINT'VOU TDBSV! ! ! VOU IfT fl STUPID COIfVTK LIKE It BEAT 
VOU." 
3218 PRINTBETTER LUCK NEXT TIIC. " 
3268 V0*=" Vt(U8T3RKEV ; VH=28 : GOSUB 48888 
3^ V0*=' VI(UBLeT88V8STlJPflMKiNP. UTS* Lft*Ke«. B. T0VI(U K8T3 

R8LWK8NfSK^T2Fni1'' : VH=15 : GOSlfi 48888 

3388 GOTO 3428 

3228 REM * USER WINS # 

3348 PRINT 

3368 PRINT 'CaffiRfmUITIONS. VOU HON THE (WE " 

3388 PRIHT'HCPE VOU ENJOYED VOORSaF. \ 

3488 VOt=" K»HGR8TV#<UL88VS58N5 VI(UaifWe<=EeGB1 HJP8V(UeiNJ0 

VDeyORS4LF" : VU=15 : GOSUB 48888 

3428 IF SS FCR K=8 TO see : IffXT K 

3448 V0$=' DI(U8Vt(Ue)«lliT8TtCU8PL8V88G@N PR85 U;5U80ReiNN'- : 

VU=18 : GOSIJB 48888 

^^68 PRINT* 8, •!» VW IWiT TO PLfiV ftGftIN (V CR H)'i ; fit=IHKEV$ 

3488 f«=IM(EV* : IF fit=" TICK 3488 

3508 IF fttO'N" 2=^ : T=e ; H=e : GOTO 986 

3528 REN EM) OF PROGRM 

3548 END 

3568 REH 
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3580 RBI NUtSER GENERfiTGR 




iMc Ktn - — ■ — .—"————- 

2620 IF E > 11. 9995 Tt£N E = E / U. 9999 : ffilTO ^fi?e 

3646 N = INT(E) 

3660 X = E 


2680 1= M(1.4427* X> + 1 




3789 E = 0. 633147 * L - K 

3720 fl = 1, 32ffiffi-3 - 1. 4i316E-4 * E 

3746 E = «(fl - 0. 166665) * E - 1) * E + 1) 




3760 fi = 2 

3780 IF L <= 0THENfl = 0.5 : l. = -L : IFL 

^08 FC« X = 1 TO L 


= 8 THEN RETURN 


3820 E = fi * E 
3340 NEXT X 
3860RETIM4 




3880 REH 

3^ REH FLRSH OVK G« M SCREEN 

2920 REH 



3940 FEft J = 1 TO 4 

2968 PRlHTe 88, ">» OVER «C\ 

3M8 FOR K = TO lee : HEXT K 

4«ffiPRINTe38-aKJ(^)i 

463 FCR K = TO IM ; tCXT K 

4840 NEXT J 

4860 RETURN 



4108 REM LINK TO GfSCS PtOHTOR 

4120 E«) 

4148 REH 

4160 fSH OVER VOIK HESSffiE 

4188 ISM 

4200 REM 

42a VO»="V*i;i)ffifiST" : VH=8 : GOTO 4^8 

4248 VOt=''ftWflefiST- : VH=0 ; GOTO 48888 

4260 REM 

4288 REM HURRV UP 

4388 REM 

4320 REH 

4348 VMS : ON RND<2) GOTO 4368, 4388. 4488 

4360 VOJ="K2f»?V0OP 2fiVI«»VTIHf : GOTO 46880 

4388 VOt=-38VHeL<'SINt0H8»VeP8VS58t6 L33TSeG0lir : GOTO 48686 
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4496 V0t="fflVeHPfflHTeG2T62Ua)eV jmNOBSTm' : GOTO 48688 

4es%REn 

40028 REM LOflD SVNTICSIZER MITH VOt - VH IS LOflDIKS SPEED 
4^46 REM 

40080 IF S5 THEN VSX=PEEK(16383) : POKE iem.€i : POKE 1638]:. 32 
ELSEiETlRN 

401W FOR VX=1 TO LEN<VOt) 

40120 POKE 16382, (6C<«IM(V0J,VX.1» 

40140 FOR VC=1 TO VW : NEXT VC 

40160 VEX} VX 

40180 PCKE 16383,32 : POKE 16383,63 : POKE 16383,32 

40200 POKE 16383,63 : POKE 16383, fSCC"-") : KKE 16383,63 : TOKE 

16383, VSX 
48226 RETURN 
42000 REPl 

42020 REM VOJ SET TO PRONO(flKE W W#KR IN DdLflRS * CENTS 

42049 RE« 

42860 REIt 

42880 V2<6)=SGN(V0) : VZC5)=FeS(V0)t, 805 : V0=F1X(V0> : 

IF V0=8 LET y0=V2(6)*l{JT«V2<5>-INT(V2(5»M8e) : GOTO 42186 
42100 G05UB 42580 : IF VE KTliRH 
42120 VO*=VO*+"0&iU" : !F rflT(VZ(5))=l TVEH VOt=V0*+" ' ELSE VO 

4^40 VO=INT(CV2<5>-ItJT(V2(5»)*10e> : IF INT(VO)=0 RETtSSI 

4a60 VO*=VO$feND0' 

42180 V2(5>=V0 : GOSIB 425M : VO$=VO$+'0SHa'' : IF flBS(INT<VZC5 

»><X LET W)$=VO*+"S' 

42260 RETIKN 

42228 E£N 

42240 REW riflKE VOJ THE PRONOUNCIftTIOH OF EACH NUflBER 

42260 REH 

42280 REH 

423M 'Ct=STRJCVO) 

42328 FOR WM TO LEN<VZI) 

42346 V«=HIi)*(VZt,VP,i) : VOt=V0$+" ' 

42360 IF VPt="- ■ LET m=V0S*'?OtHl' : GOTO 42488 

42386 IF VPt=''E" LET VOt=VO$+"«. 46T(U0<=E" : GOTO 42488 

42486 IF VPI="+" LET VOt=V0$fPLflS" : GtHO 42488 

42420 IF ypl=^-" LET VCil=VOIft««[«S" : GOTO 42480 

42440 IF VP*=" " TI£N 424ffl 
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42469 VO=VflC¥K) : GOSUB 42588 
424W ffiXT VP : RETIWJ 

4259efiEH 

42526 REH ADO HUHBER PROHOUNCIHTION TO VOt 

42549 REH 

42560 REM 

42589 IF HOT VQ GOSIB 4^229 

42680 IF VKB LET VO=flBS(VO> : VClt=V0$t"H8»NfS' 

42620 REH TRILLION 

42640 IF V0>399E12 T«H VO$="=E0Hrte3ReES0TUUB. G0FORt€6Tl)U8PWM2 

HS" : VE=-1 : KITO 42988 ELSE ^=8 

42668 IF «K1£12 THEN 42748 

42688 VZ(4)=V0 : VCN(IHT<W1E12» : GOSUB 43828 : VOt=V0*+'8TRI 

LE8N " 

42M V0=V2C4)-(INT(VZC4>/1E12>*1E12) : IF VO=0 THEN 42588 

42728 iER BILLIONS 

42748 IF V0<1E9 THEN 428^ 

42766 V2(3)=V0 : V0=(INTCV0/iE9)) : QOSUB 43926 : V0t=V0$f8eiLE 

8K " 

427M V0=VZ(3>-(INT<VZ<3)<'1E9)*1E3) : IF VO=e THEN 42988 

42888 REH HILLIGNS 

42826 IF V0<ie88ee8 THEN 42988 

42848 V2(2)=¥0 : V&=INT(Va'18eeeee) ; GOSUB 43826 ; V0t=VWf8l1I 

LE8N ■ 

42860 V0=VZ(2)-(!MT(V2<2)/18eee88>*ie8888e) : IF VO=0 T*N 42988 

42888 f£l1 THOUSmS 

42908 IF V(Kie80 THEN 42968 

42920 VZ<1)=V0 : VO=IKT(VO/ieee) ; GOSUB 43828 : V0*=V0*f6=flUS8 

m ■ 

42948 VO=VZCl)-(Iin(«Cl)/'ie8e>«1888) . IF V0=8 THEN 42988 

42966 GOSUB 43628 
42980 RETURN 

43980. REH VUm.i': ROUTINE 
43828 IF VOaeS THEN 43148 

43949 VZ(8)=V0 : VO=INT(VO/106) ; GOSUB 43148 : VO*=VOt+'eHi NDR9 

&" 

43969 IF INI(V2C0V168>«WeOVZ(0) LET TO=VZ<0)-i;iNT(VZ(e)/i88)* 

188) : VOt=VO*+"BW)0" : GOSUB 43148 

43eW VO=VZ<e> : RETURN 

43188 REH LESS THRN ONE HLMDRED ROUTINE 

431M REN IF LESS THfiN 28 DIRECT OUTPUT 
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43140 

«i69 
43188 

43200 

43228 
4324B 

43266 



43306 
43320 
43346 
43266 
43380 
43486 
43426 
43446 
43466 
434® 



IF VIK26 LET VOt=VM+V}a(V0) : RETURN 
VO$=VO$+W*( < I«T(VO/10)-2)t^> 

IF INT(VCl/18)=Wie RETURN 

VM=W)$t"0"+VX*(VO-(IHT(VO/10>*19» : RETIKN 

DIH mQ7) : VQ=-1 

m ZERO TO mm 

yXtC0J=''2SEfffl'' : m(i)='H2CN" 
VXt(S)=°<=RE" : Via<4)="F0ai" 

: V«(7)='S3VFN' 

: VX$<16)="T3N' 

m(16)="SIKST.(J" 



VXt(6)=''5IKS" 
VX$(9)="N8*H- 
VX$<12>="Tl«LV" 
VX*<15)=T1VT. N 
VXt(18>="- T, N" 



VX*(2)=ni(U" 
VXK5)="F2eV" 

VX$(ll)="a3VfiN" 

VX$(14)="F0RT. H" 
y>3<17)="S3".(WIT,r 



V)a<19>="N8ST.H" ; VXt(20>="TH3JT«V" 
m THIRTY TO HINTV 

VX$(2i)="<=!RTIIV" : VXt<22)="F(KT»¥" : VXt(23>="FIFTSV' 
Wi$(24>=''SIKST)tY" ; VXti:25)=-S3VflKTIV' : VX«2e)="eiTitV" 
VXJ(27)=-N8*TIV" 
ffiTURH 
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PO Box bS 
Mtliord, NH 03O5S 

' youi e«$tC •olnnn maQuUH" 



Rush me the next 12 issues of SoftSide. 

DUSA bulk-$15 1 yr C]t28-2 yrb GCANADA/MtXICO $22 1 yr 
aUSA tirst class $22 1 yr GOVERSEAS airmail $27 I yr 

nAPO/OVERSEAS sorlace i22 1 yr Please remit in US funds ONLY 



M14 Credit Card 



TvlcpfHHw /our chiTQ* c«rd ordtf I Call our 
Sut>^'ip1ion i>lf»ce Monday Itiroug^ Friday 
9 30to5.3DlEasiernlime]al«>3-fi73-SIM 



Exp. Date. 
Signature, 
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City 



Interbank #(M/C only). 



.State. 



-ZIP. 



50 



PROC/80 JULY 



1H€ MkO 9ID€ 
Of SOfT9ID€ ? 



NEW! TRS-80 Computers 10% off! 

Effective July 1, Radio SfiacK dropped tfie price of TRS-80 
equipment. On tfie same date, we received auttiorization to seil ttie 
complete TRS-80 tine, at 10% below the new low Radio Stiack price. 
Tfiis all new equipment, witfi Radio Shack warranty and service, is 

now made more affordable than ever! 

If your're looking to save even more, consider Hardside's used 
equipment department for prime condition, previously owned TRS-80 
equipment. 

IDo you have something to sell? Hardside will buy any used Radio 
Shack TRS-80 equipment in good condition. Refer to our price list 
below. 

So . . if you're looking to buy or sell TRS-80 equipment, look to us 
first! 



NEW 




USED 




nwiT NEWRyS 


HARDSIDE 

DISCOUNT 

PRICE 


—*.»—, 

WE'LL PAY 


SELL 


Level 1 4K $499 


$449 


$275 


$350 


Level lUK Sei9 


$557 


S350 


$425 


Level 11 6K 1729 


$656 


$350 


$450 


Level II 16K $849 


$764 


$50C 


$650 


Level 11 16K no hey pad 




$450 


$600 


Ejpansion Interlace 








OK $299 


$269 


$175 


$225 


16K W48 


$403 


$225 


$300 


32K $597 


1537 


$275 


$375 


Disk Drives S499 


$449 


&00 


$399 


1 $499 


$449 


$276 


$375 


IPercom disk drives - 


$399 1 


- 


- 


Printers FricI ion teed' $1299 


$1169 


$650 


$800 


Tractor Feed" $1559 


$1403 


1750 


$900 


Line Printer 11 $999 


i899 


New Item Not available | 


Quick Printer r S499 


$449 


$250 


$325 


Quick Printer II $219 


$197 


$125 


1175 


■ (Requires caUle $40 


$36 1 






RS-232C $99 


$69 


$50 


$75 


Teleplione Int. 1 Discontinued 


$50 


$75 


Telephone Int II $199 


$179 


$100 


$150 



HARDSIDE - Your market for new and used TRS-eo equipment 

Eitlier wa/, give usacall a1 603-673-S144. Today! 

Ttw prices stwwn may (luctuate as the market shapes up. So, it you want to sell your 
TRS-eo, we'll pay- CASH, And, If you're looking lor thetiest selection in hardware for TRS-30, we 
have It! 
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PLOT 

lAmd£lSE 7£nBlQr\J 

FDRTHf 
TR5 BD 

by James E. Randall 

Machine language programmers may have use for an equivalent of the 
Level il SET(X,Y) command callable as a subroutine. This article describes 
such a subroutine which will turn on a graphics block at a given 
X-eoordinate (0 to 127 from the left edge) and at a given Y-coordinate (0 to 
47 from the top). The operation consists of setting up the HL register parr 
to point to the appropriate Video RAM address and using the Z-80 SET b, 
(HL) command to set the bit which corresponds to the location of the 
graphic cell in the 2x3 matrix which is to be turned on. 

The 1,024 bytes of Video RAM starting at decimal 15,360 correspond to 
64 "character positions" on each of 16 lines with the first byte mapping 
the upper left corner of the TRS-80 screen. Upon power-on, pressing the 
CLEAR key. or issuing a CLS command these memory locations will 
have their high -order bits cleared to 0, a code by which the graphics 
generator interprets the low-order bits as ASCII characters. When the 
high-order bit is set to 1 the low six bits indicate which graphics cells are 
turned on in a 2 x 3 matrix at the character location, (see the attached 
Figure 1.) This gives the 128 (hortizontal) by 48 (vertical) grid characteris- 
tic of the TRS-80, One of the subroutines (CLRS) given here clears the 
screen by setting all locations in Video RAM to 128; the other (PLOTXY) 
picks up the X and Y arguments, finds the appropriate memory location by 
dividing Y by 3 and X by 2, and then sets the bit within the RAM using 
their respective remainders. 

In this version of PLOTXY the X and Y coordinates have previously been 
loaded into locations XPOS and YPOS (alternatively, they could have been 
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in Z-flO registers when the subroutine was called,} The Y Js divided by 
subtracting out 3 until the remainder is zero or negative, the quotient is 
used as a counter for indexing register HL by 64's starting at memory 
location 15,360. When this is done HL points to the RAM giving 
information about the character position at the left edge of the correct one 
of the 16 lines. The character location within that line is obtained by adding 
XPOS/2 into HL so that the latter now points to the RAM to be modified. 

The remainder of YPOS/3, multiplied by 2 and temporarily saved in 
register C, is added into the remainder of XPOS/2 to indicate which of the 
six cells in the matrix is to be turned on. To correspond to the format of the 
SETb, (HL) command this number must be shifted left three places and 
then loaded intothe second byte of the operation code. If the one wished to 
RESET(X,Y) the same sequence would be involved except that the op code 
would have to correspond to the Z-80's RES b,(HL) instead. 

Testing of this subroutine can be done with Level II by calling CLRS 
using the USR(O) command, setting XROS and YPOS with POKE 
commands, and then calling PLOTXY at its address in higher memory. 
Note that Level M READY may overwrite many Video RAM locations 
where the subroutine has placed graphic blocks. 



Figure 1: Each of the 16 
lines has 64 character 
locations containing the 2 
X 3 matrix as shown. The 
numbers correspond to 
the bit which is set in 
Video RAM for that gra- 
phic cell to be on. The 
high-order bit must also 
be on to have graphics 
rather than ASCII dis- 
played. 






1 


2 


3 


4 


5 



,, 


eei28 




00136 




00143 




^150 




06169 


eiR8 


00170 




00186 




%1% 


eifte €38861 


00200 


61ftB C3EE61 


00218 


PROG/80 


JULY 



PLOT RaiTINE 

LIGHTS DOT ftT (XRB), (VPffi); Of IlJiN=UP, LEFT 

USB SET B. (HL) WITH H=*fll1 F(S CHFR. LOC. 

B =CEa HITHIN 2X2 KIO 
VICJEO RfM I1U5T BE PRESET TO 'GftWHlCS aEflR'=128 
SIHCE BfiSIC OEflRS WITH flSCIl SPfCE <32) 



TPat ENTRY; PfflWETEK 
JP PLOTXV iMTflTX-V 

JP aRS ;aEfiR SCREEN TO ftSCIl 128 
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61fE8e 


06226 XPOS 


DEFB 


6 ie-127 FROM un 


eifFee 


e823S Vfib 


DEFB 


8 i8-47 HROBTOP 




(K>^. 










(f6258, 


DIVIDE VHfe BV 3 TO FIK) VERTICfiL 




m?6e. 


COORDINATE OF CHRRflCTER LOCOTION 


eieeeeee 


f«?7ePLCITXV 


LD 


e.e iCLRCOUKTER 


6lB2Jm^ 


W2W 




LD 


fl,<VHfc) 


£165 64 


09299 PLTe 


INC 


B i QUOTIENT 


6186 [)£03 


80368 




SIR 


3 


eiB8B7 


66316 




OR 


A ;l>KAmil 


6iB9 28ee 


man 




JR 


iPLTl iZERO 


61BBF2B561 


66338 




JP 


P,PLTe iTlLL(CGfiTIVE 


£lBEC£e3 


66346 




HDD 


A,3 ;Kkfl1IM)ER 


eicees 


66356 




DEC 


B i QUOTIENT 




tusm 


B=8e-15 LIHES DOHt ft=8,t2CRI IN UK 


61C1IW7 


86376 PLTl 


SLi) 


A iROTATELf:^ 




eftiiW 


R=6, 


Z 4 




61C3 4F 


89396 PLT3 


LD 


CA jKEEPINC 




89486 


SET d-HEHORY flOORESS OF UFT EDGE CF LINE 




66419 


eV ADDING 64 


* <6) 


6iC4 2iMGC 


66426 




U> 


11,15366 iUPPtK LEFT SCREEN 


61C7 U4ee6 


66439 




LD 


DE,64 iCHAR/l-I« 


eicfla4 


89449 




INC 


8 iB=61-l6 


61C8 85 


88458 flT4 


DEC 


B 


61CC2803 


88469 




JR 


Z,PLT5 


61tt 19 


96476 




RDD 


H.,DE i JHCREICHT BV 64 


61Cf IffR 


86488 
08498 




m 


PLT4 j AGAIN 




&sm 


WMHflHDLEX 




eiDl 3flflE61 


00518 PLT5 


LD 


fl,<XK&) 


61M CB3F 


86528 




SRL 


A iDIV BV 2 


siDfiieee 


60538 




LD 


D,8 iKIGK 


Sm 5F 


86540 




LD 


E,fl ;LO=09-63 


6iM19 


68^ 




ADO 


H.DE iHL=«EMORV LOCATION 




90568 


HON SET BIT FOR CFI 1 IN HRTRIX 


61DA 3RflEei 


88576 




LD 


fl,<XPOS) i AGAIN 


61DD E6ei 


08f)«t 




AH) 


1 /LEFT OR RIGHT HALF 


61DF 81 


09598 




ADD 


R,C iBIT MO. TO SET 


61E0 CBS? 


88688 




SLfl 


ft iNOVEFOROPCM^ 


61E2 0827 


^618 




afl 


R illBBB 118 
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61E4 CB27 


30626 




SLR 


R 


site FK6 


0K30 


OR 


396t! 


61E8 32Eai 


^40 


LD 


(JF+l).fl 


61EB CK:e 


effi50OP 


SET 


0,(HL) J SETS BIT IH SflH 


61ED C9 


M660 


KT 


.BfiCK 




00670 










00630 










0a63B 










06780 










K710 


CLERRS OUT VIDEO RRI WHICH HfiS 32=SPflCE 




90720 


BV PUTTIIfi If 


"QRflF^lCS SPfiCE" =123 




K7S0 








61EE aKi3C 


09740 aRS 


Lli 


HL. 15360 J LIPPER LEFT SCREEN 


61F1 3680 


00750 


LD 


(:HL),128 i GRRPHICS BLfflJK 


61FS 11013C 


00768 


U) 


DL 15361 iOESTINfiTICNflH)R. 


61F6 eiFFK 


06770 


LP 


BC,i023 ;COUHTER 


61FS EDee 


08780 


LtJiR 


iFRON <H) TO (DE) 


61FB C9 


80798 




RET 


iBRCK 



END 



00080 TOTS. ERRORS 




CLRS 


61EE ®740 


^10 


OP 


61E8 ^650 


iSl64e 


PtOTKv em 382;^ 


d&m 


PLT8 


61K 00250 


00330 


PLTl 


6iCl 80370 


00320 


PLT3 


61C3 00390 




PLT4 


6iCB 004M 


08480 


flT5 


61D1 M518 


064^ 


>POS 


6i« 08220 


08510 08570 


VPOS 


61l¥ 0^30 


00260 
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x-iuinii II 



by Chris Freund 

For the thousands 
who have enjoyed 
X-Wing Fighter, 
X-Wing II presents 
a totally new element 
in the game! 



_ ^ Where X-Wing I left Death Star 
looming on the screen, X-Wing II lets you guide your 
lighter into the trench, find the exhaust port, aim and 
fire — all the while avoiding enemy fighters. Excellent 
graphics, 12 levels of play, and extensive INKEYS 
commands make this one of our most exciting 
"real-time" games. 

Level II, 16K - $9.95 
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CiCSSETTE 
CONTROLLER 



This month's construction project should appeal 

to tape pullers oi all ages - a control box permitting 

visual and audio monitoring of CLOADing 

cassettes, as well as manual start/stop control 

of the tape transport . 

by Jolin D. Ealon 

No question that Radio Shack has a system that is fast becoming the 
standard oi the personal computing industry. Despite its success, I must 
say that I am positively pu?2led at two obvious and aggravating nuisances 
created by (he Shack engineers. 

It didn't take very long after I had my TRS-80 Level I uncrated, plugged 
in and running to discover the "plugging" problem with the REM jack on 
the cassette recorder. It took me about as long to discover the volume level 
problem when I had received my CPU back from the Level II upgrade. 

Frankly, I had felt that the REM jack plugging problem was bad enough 
but. after attempting to CLOAD and convert Level I tapes to Level 11,1 had 
seriously considered returning to my neighborhood Radio shack and 
asking that my Level I be reinstalled. 

After ordering the Level M upgrade I had read an article written by 
George Blank, in which he described converting Level I tapes to Level II 
through the use of an AM radio to monitor volume level. He did his usual 
outstanding job, and the method he describes works. However, the 
problem of volume control is not only present during conversion, but 
ever-present. 

I really didn't want to make an AM radio a component of my personal 
computer; after all, the little bugger was about to make doubting Thomas's 
outof most of my friends (plug and unplug -CLOAD and RECLOAD - wind 
- rewind - over and over.) You know the friends who always ask, "What 
will it do?" - and you really want to show them something. 

Anyway, back to the care and feeding of our TRS-80 . . . after more 
research than I care to admit, and just before I went back to get my Level I, 
I discovered that a VU meter could be used to read the volume level if it 
was connected in series, in line between the CPU and CTR 41. As I was 
putting this idea into production, I discovered that I could also solve the 
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REM jack problem just as easily. Moreover, neither addition would • 
interfere with the TRS-80's operation nor the "shack's" warranty - 
(innportant - especially since my first Level II installation was defective). 
The complete unit fits compactly in a 2'/a" x SVa" box (see Figure 1.) 

PROBLEM #1 

My friends wonder why 1 have to keep running my tapes over and over 
. , . while I show them "the things it will do" . . . 

FIX #1 

Well, maybefix is not the most appropriate term. Fixornot, I believe 
you will find this addition a helpful tool. 

We are now told that the CTR-41 volume setting for Level I programs 
is 7 to 8 while for Level II the setting should be 4 to 5. (Slightly lower 
for the CTR-80 - ed.) After an evening of playing with the VU meter a 
reading of (16) appears to be an ideal volume setting to successfully 
CLOAD into Level II. The CTR-41 volumesettingmay vary from3to9, 
but if my old VU meter is reading a (-6) I am CLOAD(ED), 

I got all the parts needed for this project from my neighborhood shack. 
I used a bakelite box with aluminum cover (part #270-230), VU meter 
' * [part #22-053), shielded cable with miniature phone plug on one end 
and miniature phone jack (female) on the other (part #42-2472), and 
onebagof assorted vinyl grommets (part #64-3025). The 72" shielded 
cable is much longer than needed but some of the excess is used in the 
other projects. 

Start the project by drilling the two mounting screw holes for the VU 
meter, next cut out a round hole to accept the body of the meter. Drill 
y>" hole at each end of bakelite box, install 1 grommet in each hole. 
Next, cut cable ends off leaving about 12" of cable on each end (see 
Figure 3), Insert cut ends through grommets and pull enough cable 
through to enable you to strip the insulation off the cable. Using a 
sharp knife, cut a circle around the cable, taking care not to cut 
through shielding (copper wire woven around center lead); also make 
sure that the cut you make around the cable is continuous. Now pull 
outer insulation off, then strip down the copper shielding; pull around 
to one side and twist between fingers to make one (stranded) wire. 
Now you must strip the insulation off the center lead, again being 
careful not to cut too deeply into this lead. Pull insulation off, and twist 
lead to make firm wire (see Figure 3A). 

You will need to take care to avoid the center lead and shielding 
making contact. Therefore, you will need to strip off more of the outer 
insulation than that which is stripped from the center lead (see Figure 
3A). 

After stripping both cable ends you are ready to make connections to 
the VU meter. First twist both shielded leads of the two cables 
together to make one lead, now connect this lead to the (-) negative 
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terminal of the VU meter; second, twist the center leads together 
similarly and connect them to the positive ( + ) terminal (Figure 2). 
This makes a series connection through the VU meter. 

Operation: 

Plug the miniature (male) plug from the CPU pigtail into the 
miniature (female) jack on the cable end coming from the VU 
meter, then connect the miniature (male) plug on the cable end 
coming off the VU meter into the "ear" jack on the CTR-41 
recorder. You know have all connections complete (see Figure 1). 

Load a cassette (with program on it) in the CTR-41 and begin to 
CLOAD as usual. Notice the VU meter when program data begins 
to be encountered. It abruptly moves from -20 toward the (-I-) 
range. If you move the volume control on the recorder notice that 
the reading of the VU meter is changed. 

Move the volume from high to low and also observe the asterisks 

on the monitor. 

By slowly moving the volume control and watching the asterisks 
sign for program being read, you will observe that the CPU reads 
information from the recorder at a VU meter reading of between 
-5 and -7, with -6 being ideal, 

1 have found that the volume setting per tape may differ greatly, I 
suppose, depending on quality of tape, source of recording, etc., 
so I have found that I cannot rely on a volume setting of 7-8 for 
Level I or 4-5 for Level II, As a matter of fact, my machine 
language Level II conversion program (from Radio Shack) 
CLOAD(S) at a VU meter reading of -6. when the volume control 
is set at 7, 

Once you have adjusted the volume control so that the VU 
meter registers between -5 and -7 (there will be some movement 
in this range), rewind tape to start position and CLOAD. 
Watch the video screen for the usual flashing asterisks. If the 
computer does not give signs of CLOAD(ING), adjust volume 
slightly (some programs are almost impossible to load). When 
CPU will accept the tape, it will be a good idea to write VU meter 
reading and volume setting on cassette. 1 have found these notes 
to be life savers for my commercial machine language programs. 

Troubleshooting: 

If your VU meter just sits there during CLOAD, you either have a 
blank tape, do not have the recorder in the play mode, have not 
properly connected the leads to the VU meter, or have a short in 
the connection, (shielding and center lead wires touching each 
other at meter or where the cables are stripped) (see Figure 2.) 

If all of the checks show a dead meter, take it back to the Shack for 

exchange. 

You will wonder how you ever survived before you had your VU 

meter, 
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PROBLEM #2 

My friends question the credibility of my computer when I am seen 
fumbling with the REM plug - while trying to show them what "will it 
do" . , , 

FIX #2 

In Figure 2 you can see a Double Pole/Double Throw switch R.S. 
#275-666, in the corner of the box. Note thai the cable leads from the 
CTR-41 REM are connected to the center set of terminals, the 
terminals on your far right are shunted (shorted together) and the 
third set on your far left of the switch are used to connect cable leads 
to the TRS-80 through the subminiature jack. I used 2 pieces of cable 
left over from Fix #1, a subminiature plug R.S, #274-289, 
subminiature phone jack R.S. #274-292. The male plug was installed 
on one end of one cable, and the female phone jack was installed into 
the side of the box housing. Care should be shown to assure that cable 
shielding is always connected to shielding and the center lead 
likewise. If the drawing is followed carefully, you should have no 
problems. 

Start by drilling one hole in the top of the box to accept the DPDT 
switch, next drill one hole in each end of the box. one for plug (male) 
cable going to the REM on the CTR-41, and the other for a 
subminiature (female) phone jack. Cut a 12" piece of cable (left over 
from Fix #1); strip back both ends as described above, feed one end 
through the grommet which has been installed at the switch end of the 
box (Figure 2); connect the shielding lead to one side of the center 
poles on the switch, and the center lead to the other. Then take any 
small piece of wire, the center lead from the cable will do, and shunt 
the two terminals nearest the grommet (see Figure 2). 

Now cut a 4" piece of cable and strip each end. Connect the shielding 
lead to the third set of terminals on the same side as the shielding 
from the recorder is connected; then connect the center lead to the 
other terminal. When connecting the subminiature jack, keep in mind 
that the tip of the plug represents the center lead, so make your 
connections so that when the plug is installed in the jack the top of the 
plug will complete the center lead circuit. 

Finally, install the subminiature plug on the cable end coming from 
the center terminal of the switch - again, remember that the center 
lead connects to the top of the plug and the shielding lead acts as 
ground to the rest of the housing. 

The soldering of the plug and jack are not easy for the novice, so you 
may need those extra parts and cable left from Fix fll. 

Operation: 

When the DP/DT switch is thrown in one direction the cassette 
recorder is connected to the CPU for auto control, when thrown in 
the opposite direction you have control of the recorder. You see 
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the REM plug does nothing more than open the circuit to the 
CTR-41 motor, now you can use it to your advantage. By shorting 
the two terminals on the switch as you have done, your switch acts 
as the REM was intended - a remote switch. 
TroublesKooling: 

If you have followed both the written and schematic directions, 
there should only be two possible sources of bugs; 1) bad solder 
connections; go back and check them, and 2) the female 
subminiature phone jack. Some female jacks have 3 terminals, 
use only the two that contact the plug when inserted. The third 
acts as a switch but is not used here. 
Option: 

For those of you who just like to add something to anything, every now 
and then, let's add a .3.2 ohm speaker (part fl40-12l^1) to our VU meter 
circuit jus! in case we want to check on the sound quality on our tape - 
without unplugging the ear plug 

Install a second .switch (DP/DT R.S. #275-666) in line with the VU 
meter (Figure 4). Connect the switch terminals as in the remote 
control circuit, except rather than shorting the terminals on the far 
right, match shield to shield, center lead to center lead, and connect 
both leads to a 3,2 ohm speaker 
Operation: 
The DP/DT switch will put the CTR-41 and CPU on line when 
thrown in one direction and will put the CTR-41 and speaker on 
line in the opposite. If you install the option your unit will look 
something like Figure 5, 1 housed my speaker separate with a jack 
connection so I may use it for other purposes. You could just as 
well use a larger box and install everything in one unit To each 
his ownl 

One final word on cassette tapes - if you haven't yet, purchase a 
good cassette head cleaner/demagnetizer and use it often; it will 
make a difference. 



Histogroph/ScQttersram 



by Gary S. Breschinl 

HIstograph constructs a five- to Scattergram plots XY infor- 
mation for visual analysis of 
Irends, Extensive documen- 
tation. 

Level II, 16K $9.95 



fourteen-elemenl bar graph. 
User specifies the range of data 
and numberof bars in graph; 
program sets upper and lower 
response limits for each bar 
element. Graph composed in 
"real time" as data is entered. 
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INVENTOKY 2.3 

The programming of the FUTURE is here 

NOW 

Proper inventory management is 
tfifl backbone of a prof jtabfs busi- 
ness, yet it's vary difficult to 
keep current on price incressas, 
slirinkage, low-on-stock itmes 
and profitable items versus 
iosers, without an efficient and 
prompt method of surveying your 
inventory levels at any given 
time. Ttie Inventory 2.3 System 
provides the smaK-to-medlum 
volume business with an efficient 
method of estabilshing and main- 
taining inventory records. Fea- 
tures of Inventory 2.3 include: 

■ The ability to establish over Z200 inventory item records per clean diskette. 
Each inventorv item record contains data on the vendor, quantity on hand, 
cost per unit, retail price per unit, reorder points, quantities purchased and 
sold, and sales history. 

■ File search by inventory item description or batch/sequence number 

assignment. 

■ System operation with 1 to 4 user selectable disk drives. 

■ Informative reports analyzing both inventory costs and supplies. 

■ Sophisticated recovery routines with each program to catch data entry errors 
and to prevent computer "lock-oul" through lack of proper line printer 
interface, etc. 

■ A looped program format to allow access to any sub-programs whenever a 
diftereni inventorv f''e function is desired. 

A comprehEnsivB manual guides you step by step during your firsl-time run ot the 
system; your conversion of data from a manual systam to the computer system; and 
regular run procedures throughout the year (update file, add or delete items, 
monitor activity monthly or weekly, check for low stock, run inventory control 
reports). 

Requires a minimum system configuration of 32K, Level II TRS-80 microcomputei 
with at least two minl-disksand line printer. Tvko disks are recommended. S79.95 

TfCTRS-80 Sofluiore CKchongc 

W 17 Briar Clitt Drive Mniord, Kaw Hampshire 0305B 
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FORUM-80 

A new service for the computer 
hobbyist is FORUM-80, a network of 
interactive computer-based mes- 
sage systems. Use of the network is 
free; required equipment is a 
modem, RS-232C, and a terminal 
program such as ST-80 or ST-80D. 
Simply set your RS-232 to 8 bit 
word, 300 baud, 1 stop bit, no 
parity, and dial up one of the 
numbers below. When you hear a 
high-pitched tone, place the handset 
on the modem and press 
"ENTER". The systems are self- 
prompting and a lot of fun! 

KaniasClty.MO 816-861-7040 

Chtcagv, IL 312-9Z5-025S 

Ft. Wonh, rX 817-S23-0009 

Orange County, CA 714-730-1206 

(New systems come on line each 
month. Try one of the numbers 
above for a listing of a FORUM-80 in 
your area.) 



TRS-80 
Users Group 
Information 



The Central Alabama Micro- 
computer Society meets on the 
third Tuesday of every month at 
the Goodwyn Community 
Center. 

For additional information 
contact Lewis Garrison (205) 
272-8462 or Walter Bray (205) 
272-3621 . 




GRT Corporation 

C<MHiiiner Computer Gn>iq> 
lZe6 N. L«wTence Station Road 
Sunnyvale, Califomia 940S6 

Q2 TECHNICAL BULLETIN 
Potential clBmag« lo TRS-80 Lavel III BASIC tap* wtide loading with CTD-ao recorder 

After receiving a nuitilief of calls reporting difficully in loading G2 Level III BASIC, our 
investigations revealed ttial In over 60% ol ttw instances, (he user was employing a Radio 
Stiaok CTR-80 recorder. Our teclintcal staff has delermined Itiat using this recorder can 
permanenU/ damage tt^e tape during a unlqueset of circumstances. 

The problem occurs when t tie smallest grey plug o( ltwTflS-80ls inserted Intottie "li4IC" Jack 
on the recorder. This motor drive connection allows the romputer to turn the recorder on and 
of I. It lor any reason during Itke reading ot a tape ttwcomputer shuts off the recorder, a "spike" 
can be recorded on tfie tape. This spike permanently damages the Level III BASIC tape and 
makes It unreadable. 

Several days of testing has confirmed that Itiis damage is caused in every Instance whien the 
computer shuts Off the recorder motor. As Of ttiia data the only recwOet known to cause this 
problem is ttie CTR-SO. 

RECOMMENDATION: G2 Is recommending that the smallest grey plug of the TRS-80 NOT tie 
connected to the CTR-eO recorder. TliS wilt eliminate the possibility or permanent damage of 
the Level II I BASIC tape. 

PLEASE NOTE: We recommend that ttie precaution outlined atxive be exercised with AU. 
tapes wtien uSng Ihe CTR-SO recorder. Damage can result wtKttter ttie tapes are G2 or any 
oltier software, incjudlng your own saved tapes. 

■ Ga Technical Bulletin No, 1 
Iv1ay21,l979 
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ZSD 
iNSTRUCTiON 

Handbook 



Z80 Instruction Handbook 

Sceibi Publications 
Convenient pocket-size manual describes 
Z80 capabilites in easy-to-understand 
terminology. Designed as a practical 
reference to mnemonics, machine codings 
and usage — for programmers of every 
level, from beginner to professional ... 
anyone working in Z80 machine or 
assembler language. 

Price, $4.95 + $1 .00 handling 




The BASIC Handbook 

Dr. David A, Lien 
Definitive reference work 
explaining over 50 versions 
of the language in detail. All 
you need to know about the 
major statements, functions, 
operators, and commands 
pertaining to use in micro, 
mini and mainframe com- 
puters. Price, $14.95 



Sargon: A Computer Chess 
Program 

Dan & Kathe Spracklen 
Documentation covering all 
algorithms in Sargon can be 
found in this comprehensive 
guide book. Contains table of 
contents, block diagram, 4 
part introduction, Z80 listing 
and index to subroutines. 
Price, $14.95 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors 
and omissions in TRSDOS2.1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably. Going from 
TRSD0S2-1 to NEWDOS is like going from Level I to 
Level II: more power, more convenience, greater speed , 

NEWDOS has the power to: 



•Use all DOS commands 
(incl. directory) in BASIC 

•Automatically load and run 
a BASIC program 
on power- up 

• Produce variable cross- 
reference tables 



•Open 'B' to add to 

sequential files 
•Append files 
•Use your line printer, as 

a screen printer 
•Renumber BASIC programs 
•End keyboard bounce 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 



You paid $500 for your disk drive — 
why struggle with it? 

Apparat's NEWDOS is fully documented and available 
for only $49.95 from: 

TcC TRf-80 lof luiofc Cxchonoe 

^P 17 erjarCIIII Drive MIHard, Nvw Hampshire 030^5 
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NEWDOS • 



If NEWDOS is the Cadillac of disk-operating 

systems, then NEWDOS + has to be the 

Ferrari. NEWDOS-)- retains all the features of 

the original NEWDOS, and adds 

the following utilities: 

Editor-assembler for di^k C 

Disassembler (Z80 machine code] C 

LM Offset-allows transfer of any system tape to a ^ 

disk file (automatitallv relocated) 

BASICI-Level one BASIC saved on disk Q 

LV1DSKSL - not a typo, this saves and loads BASIC1 Q 

programs to disk 

DIRCHECK-tests and lists disk directory C 

Superzap-display/print/modify any location C 
in memory or on disk 

Superzap alone is worth the price of this 

package. With it, we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS + 

manual is another plus: clear and concise, it 

even includes a byte-by-byte explanation 

of the directory file ... 

invaluable if you ever need to 

save a crashed disk! 



The price for all this computer power? That's (he best parti 

NEWDOS + , JustS99.95 

NOTE: U5e of Ihis soUware may require doco menial ion available oriy witli ihe 
purchase of Radio Shack THSDOS 2 1 and^or Ihe Radio Shack Editor /Assembler 

TcE TRI-60 iofluiQfc £Kchonge 

W 17 Biiir Cuf\ Dniie MNIord, Utir HflmpEh^rH QlObi 



PROG/80 JULY 69 




by George Blank 

This book is a major event for TRS-80 programmers. Due to the Mmited 
instructions supplied with Radio Shack's Editor/Assembler, there has 
been an urgent need for a more detailed eisplanation of Z-BO Assembly 
Language. I am aware of three other authors presently working on similar 
books, and have been asked by a pubisherto writeone myseii. (1 declined.) 

Bill Barden has excellent credentials for the task. He is well-known to 
hobbyists as the editor of the Orange County TRS-80 User's Croup 
Newsletter and the author of The Z-80 Microcomputer Handbook 
published by Howard W. Sams & Co. He has an excellent grasp of the 
subject, and this book will become an indispensable aid to most TRS-80 
Assembly Language programmers. 

The book is organized into three sections, General Concepts, 
Programming Methods, and Appendices. The first section covers the Z-80, 
an introduction to Assembly Language, the Radio Shack Editor/Assembler 
and T-Bug, and debugging methods. The second section explains how to 
move data, the use of arithmetic, compare, logic, and bit operations, 
shifts, strings, tables, input and output, and 12 commonly used 
subroutines. The appendices list the Z-80 instructions by group and in a 
breakdown of mnenonic, code and format, description, and flags affected. 
There is a good index as well. 

TRS-80 Assembly Language Programming is less technical and easier to 
read than The Z-80 Handbook, but it is not easy reading. The approach is a 
cross between a tutorial method and a reference manual, which does make 
it difficult to use for learning Assembly language programming, but 
excellent for later reference. There is just enough humor included to 
prevent the average person from burning out their brain deciphering the 
technical details. It helps to be able to read on the level of a college 



70 



PROC/80 JULY 



textbook, to understand the hexadecimal number system, and to have a 
minimal understanding of electronics if you desire to learn from this book. 
The average thirteen year old ham radio operator will probably be able to 
devour it at breakfast, but the average adult with a little programming 
experience in BASIC may feel lost. 

Those who do take the trouble to think through the examples and follow 
the text should be rewarded with a general understanding of the Radio 
Shack Editor/ Assembler and the inner workings of the Z-80, Those who 
can already use the Editor/Assembler, but who do not feel proficient, 
should receive a great deal from Mr. Barden, 

The book is well presented, though the type js a bit dense and the 
illustrations limited. There are a few typographical errors, but they are 
minor. A technical error on page 43 promises a routine to add a number to 
register A, then gives an example showing how to add a number to register 
B. 1 have two complaints about ommissrons in the book. Direct memory 
access is not supported, as "the TRS-80 does not currently utilize it," That 
is not encouraging to those of us who have ordered the TRS-80 Model II, 
which does use DMA, The other omission I feel is even more serious, Mr, 
Barden does not give any help with TRS-80 Assembly language Disk I/O 
operations. Another feature that would be desirable would be a guide to 
using subroutines in the BASIC RO,M, with a list of important ones, 
especially since Mr, Barden's library of subroutines is quite limited, 

I have a philosophical argument with the author when he encourages 
self-modifying code on page 177, There is already enough of a breeding 
ground for bugs in assembler operations without leaving the door open for 
more trouble. For all these reasons, I do not feel that this is the ultimate 
book on Assembly language for the Z-80, and I still believe there is a good 
market for a tutorial handbook on the level of the Level I BASIC User's 
Manual, 

Even with these reservations, Mr. Barden has done a real service to 
TRS-80 owners, only exceeded by Radio Shack's generosity in making the 
bookavailableat 5000 locations at the incredible bargain price of $3,95. At 
that price, you can't go wrong. If you own or are even considering Radio 
Shack's Editor/Assembler, you should buy this book. It is available at you 
your local Shack with the catalog number of 62-2006. 
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TRI-80 music 



by James Garon 



The TRS-80 is a miniature radio station that's always broadcasting 
and any AM radio placed at the right-hand side of the keylmard will verify 
this fact. With any program running, tune the station selector for clearest 
reception. Every program produces a unique pattern of noises. You can 
hcirness the noises to produce recognizable tunes. The following program 
is an example: 

LINES 1-5: 

When using FOR/NEXT loops to create music on the Level II TRS-80, 
it is necessary to use integer variables for the loop counter(s). To hear why 
this is the case, turn your radio on and type: 

FOR 1 1 = 1 to 3000: NEXT ENTER 

Sounds like a dying chicken, right? Now type: 

FORl% = 1 to 3000: NEXT ENTER 

This time we hear a much steadier tone. The reason for this is that 
integers (like 1%) are stored in a relatively simple form, while single 
precision variables (like II) are stored in a more complicated type of 
scientific notation. The larger a single (or double) precision variable is, the 
more work Level 1 1 must do to use that variable. The harder Level 1 1 works, 
the lower the note produced. This explains the falling pitch in the first 
example. 

The variables L, and Q through Z will take on fractional values during 
program execution, therefore they are not defined to be integers. The 
jump to line 300 allows us to use small line numtiers for the "'notemaking" 
subroutines in lines 10 through 210. Level II can "find" small line 
numbers faster than large ones. To hear this, type: 

GO TO Yes Virginia, there IS a line number zero! 

And then type: 

RUN 
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Note the high pitch. Press BREAK; remove the line by typing ENTER 
And now try: 

200 GO TO 200 Be sure to remove the Ifne after listenlrtg 

Those two extra digits mal<e quue a difference in pitch ! 

LINES 10-210; 

These 25 subroutines produce two octaves of notes. They are 
organized in order of increasing pitch as shown: 
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Note that all "C" notes end in 10 (10, 110, 210). all ■■D" notes end in 
20 and so on, and that "black keys" have line numbers between the 
corresponding white keys on either side. 

These routines use the vari^le K as the loop counter. All unnecessary 
spaces have been omitted to minimize stray clicks and pops between notes. 
(This explains what a friend refers to as my " FORK routines" .) 

The content of each loop is chosen not for its meaning, but for its 
difficulty. It takes BASIC a certain amount of time to process a colon (:), a 
shorter time to handle each character of a REM statement and a much 
shorter time to deal with spaces (blanks). As we've seen, the longer a loop 
takes, the lower the note produced. If you're typing this program yourself, 
be sure to type exactly what is illustrated. 

The variable L is used to control the length of each note. A note such 
as "LOWC" at line 10 requires half as many complete loops to last as long 
as"fVllDDLEG", (oneoctave higher) at line 110. Ttiis is why the numbers 
which multiply L increase from 12 to 48. 

LINES 300-950: 

U represents the length of the shortest note. By changing this value, 
we can change the tempo of the entire song. If you read music, think of U 

as a sixteenth note. 

V is twice as long as U (an eighth note), W is twice as long as V (a 
quarter note), X is twice as long as W (a half note), Y is twice as long as X 
(a whole note). Also, Q is 50 percent longer than V (a dotted eighth note), 
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R is fifty percent longer Itian W (a dotted quarter note), S is fifty percent 
longer than X (a dotted half note). 



U=/ V=/ W=J X=d 



o => 



U sU 



These values are computed and saved prior to starting the song to 
minimize noisy calculations during the performance. 

M is used to l<eep track of the verses, in line 360 for example, the 
program brancties to 370 if M = 1 or to 380 if M = 2. if M is zero, no 
branch is made, and line 360 is executed. This allows two line numbers to 
specify a three-way branch. Line 390 starts the music. Two pieces of 
information are required for each note: the duration (L) and the pitch 
(subroutine line numt)er}. Thus the first note is G and it is a sixteenth note. 
W need not specify note length (L) until there is a ctiange in duration. The 
third note is "MIODLE C" and lasts tor a whole note (L = X: GOSUB 110). 

Lir>es 650 and 670 temporarily increase the tempo. Line 820 takes 
advantage of six consecutive notes wfiich tiave the same duration. The 
ONGOSUB lets us compress this section significantly. 

1 DEFIHTfi-P;DEF9*a.:a)T0388 

2 SOFTSIDE PRESENTS: 

3 VESTEROfiV - BY JOHN LENMON 8 PflUL HCCfKTHEV 
5 PROCRflll ftnm - JfiHES GPRQH - MWCIti Cfi 

19 F0RK=1T012«L ■■ 

ll::::REn 

12 : : -.m// 

13 NEXT; RETURN 

15 F1KK=1T013*L 

16 ::: m// 

17 : : ; REN/// 

18 HEXTiRETUm 
28 F(IRK=1T014^ 

21 ::REIV///// 

22 ; : iREN////// 
22 NEXT: RETURN 

25 FOH(=1T015^ 

26 y.m///// 

27 :::REn 
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£8HEXT:RETISH 
a FCEK=n016*L 

21 :: mV/// 
12 : . REM//// 
n lEVJ: RETURN 

40 F(KK.=1TG17*L 

41 : REI1 
43 :: REM 

43 NEXT !STU?N 

45 FORK=1T018*L 

46 ; Fe//// 

47 ■ : i!EH//// 

48 l£XT:RETU?N 

51 : REM 

52 ::REH 

53 lea-.RETTO 

55 Fa9;=iTO20*L 

56 iffiM////// 
5? : R01///// 
58 NEXT:RETLffiN 
^ Fa?K=lTCi2i*L 

61 : REM 

62 :REH 

63 ieXT:REHJraJ 

65 fCH<=lTCl22*L 

66 RER//////// 

67 :REH///// 
eaiOTRETllffl 
n FORK=1T023*L 
71 ;REH 

73 KM 

73 IEXT:RETIM 

119 F0»;=1T024*L: : :REM////////// 

112ie{T:RETlRH 

115 FCIR(=1T026*L: ; :RBV//// 

116 ICXT-.RETIKN 

126 fORK=iTCG8<-.:REn/////////////// 
131 rCXT:KTl«J 
125 F0RK=lT03e*L 
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126 m/// 

127 iSR 

128 f€XT. RETURN 

139 FIM=1T032*L: ^}\///////<'///////////// 
131 NEi<T:KTl«H 

146 FGRK=1T034*L: m^//////////////// 
141 l€XT: RETURN 

145 F£KK=1T036*L: f^n/////////// 

146 IOT:RETlKN 

158 FMa;=lT(B8*L; REB//////// 
151 {£XT:RETLfi9i 

155 F0FS;=lTO4e*tiREH////^/ 

156 l€XT: RETURN 
16eF(B:=lT042*L:KR/// 
161 NEXT: RETURN 

165 F0RK=lTtM4*L:RE« 

166 NEXT:RETLRN 
178 Fa?K=lT046*L 

171 :rEXT:RET™ 

ae FCRK=lT&16+L::NEXT:RETURfJ 

im U=l, 5 

316 V=UtU : W=V+V : X=IWJ : V=K+X : Q=UtV : R=V+li| : S=IJ+X 

560 Fam=8T01 

510 »tlGOTO520,5:^:ClS:PRmTei8,'VESTERDfi¥ 

VESTERDflV, ", :GOTC640 
520 PRINT' 

SUWaiV, "i:GOTO540 

530 PRINT" 

VESTERWi', \ 

548 L=V:ia)9JB5e:G0Sie4e:L=X^R:G0M48 

558 0NMffiT056e,578:PRINT'FlLL MV TROaES SEEtED SO FflR H«RV':G0T05^ 

K8 PRINTTR (WT HRLF THE Mi I U5E[> TO BE":G0TO58e 

578 PRM'LOVE IWS SO BJ EftSV ffME TO PLflV 

5e0L=V:FlKI=nO6:ONlKiSUB6e,78^115,120,138,14e:l£XT:L=R:(mBia: 

L=V ; GOSLBia ; L=X+H : G05IB12e 

598 OttlGOTO6e0,6i8:F1?INT"NGH IT LOOKS flS THOUGH THEV'RE HERE TO STftV": 

GOT«a 

&S» F1?lHT'Tt£R£'S ft SHffiXB* HfMiING OVER lf:GOTO620 
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Sm PRIMT'tWJ I ffiED a FlfCE TO HIDE fiUfiV 

628 L=V : FGRKTK : GNI G0SUB12e. 128, 119, B, 68, 56 : [EXT : L^ : KSIS65 : 

L=V:G0aJB6a:L=U:G0£UeeB 

630 (M»T064e;H!M"0H 1 BELIEVE IN VESTEROftV. "; (BII^K 

648 PRINT'OH V^STERDfiV CflME StSXJEHV. ':GOTO^ 

658 L=H:GQSUe56:(Bafi4e-.L=VffiM68:L=R:G0StJffi6:L=V:G0SUB28:L=H: 

G0aB4e ■ L =V : tmB6e : L=X+H : G09JB6e : I FH=2THEH?a 

668NE>n 

678 F«m=8T01;0»BCfT06ffl:PRIHT" 

1*^ 9€ Hffl) TO GO I KW'T mU ': :GOTO630 

6® PRM"I SfilO SCMETHIIfi WRCHQ W* I LONG ■; 

698 L=X;fflSl«6e:Gl)SB6e:L=H:G0SUei26.ia5lBi3e:a)Sl®i4e:L=V: 

K)5UB136 : G0StJBi29 : L=R : G0SUB138 

?68 OmGOT0718:PRM-9t WOULDN'T SRV. ":L=V:(KaB12e:L=H;(fflStB116: 

G0SlB12e : L=V ; SBl^fl ; [aT0728 

710 PRINT'FOR VESTERDfiV. ":L=V:G0Slffil2e:L=IJ:G0SlBlie:GO5lfiia: 

GOSUB140 : H)SUeil8 : S)5t«65 ; GO5Ue60 

?20 ft)a:G0T0518 

720 a5:PRIHT8«8,0«$(22)i :L=«-.F0RI=n(J5:L=L/,9;REF£)Rt:PRIHTM^ : 

QHI(ffiSUB4e, 68, 58, 26. 48 :f€}CT :REI»flJ ■ PRINTflti ;L=U ;8Oafi60: REFIDfB : 

PRMftt:L=V:a)SlB68:CLS 

90eCflTftVES,L£,R,D,ftV... 

Ready to get serious? SUBSCRIBE TO PROC/80 the magazine 
dedicated to serious programmers. . .beginners to professionals 

SUBSCniPTION RATES - 6 iisuas per yur 
USA Canada "] 

Bulk mail -115.00 Mexico I 

First Class Mail - $21,00 APO/FPO I *^"' ^ 

Overssas airmail - $27.00 Overseas surface mail J ' "~^ 



CI TY^ ^ STATE __^ Z I P 

Telephone orders accepted lor Master Charge or VISA accounts. Call Monday through 
Friday, 9:30 to 5:30 EST al 603-673-5144 

PO BOX 68, MILFORD, NH 03055 
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KEYBGARD-SQ 

by John Adamson 

Turn Your TRS-SO into an Electronic Organ 

With KEYBOARD-80 

And Any Audio Amplifier! 

Play your favorites, from Scott Joplin to Paul McCartney, on a 
full 3-octave chromatic scale. Although you can record your 
music for later playback, the unique live keyboard lets you listen 
as you play. Machine language tape for 16K. Level llTRS-80. 



TjS 



Level 11, 16K Tape - $9.95 

TRI-80 Softuicifc Cxchonoe 

17 BRIAR CUFF DRIVE MILFORD, NEW HAMPSHIRE O305S 



1BK MEMORY KITS 

■ ^^ 1 1^ by ITHACA AUDIO — .. ■ 



Everything you need to up-grade your 
TRS-80 to a 16K system 

» 8 tested and guaranteed 18K RAM's 

• New programming Jumpers 
" Easy-to-foHow instructions 

• Only tool required is a household screwdriver 

Each kit is 100% guaranteed against failure. Add high quality, 
high density memory for less than you would expect to payl 



$99.95 



Tf« 



TRS-eO SoftuMirc CKchcingc 

17 Briar CHIC Drive Miltard, NswHsmpsliire 030S5 
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So Your Computer Wants 
to Plav Chess 

„.then why not start off with the best? 

SARGON 

The recent winner of the 1978 
San Jo§e Microcomputer Chess 
Tournament, SARGON, Kathe 
and Oan Spraclclen's revolutionary 
chess-playing program, left spec- 
tators slackjawed as 11 soundly 
defeated a formidable field of chal- 
lengers. Among those bested were: 

Chess Challenger -10 Microchess 1 .0 
Boris Microchess 1 .5 

Atari Chess Challenger -3 

Level 11, 16K - Siy.95 
Fullv annotated 114 -pg, manual — S14.95 

TRS-60 SofluiQfC EKChcinQC 

I'Bni^lH CLfFF DRIVE MUfOHD NEW HAWPSHmE OJQ&a 
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